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Dear Jim: fleceiv6d: 7? Dec 23 

J am enclosing a sort of "internal h^'c manuaV for int el's 
ISIS system. This all started some months c^o when I became 
the victim of a persistent "data CRC" error on the MDS which 
could not -be reproduced on anything else. Several phone calls 
to Intel produced only the claim that, by the time the error 
message came out. Vne information as to what track and sector 
were involved was no longer available anywhere in the 
machine. • This sounded rather preposterous, so I went 
a-hunting. About 2 weeks' work, spread over a considerably 
longer period, yielded the discoveries contained in this write- 
up. Since I don V suppose I am all that unique in needing to 
debug things in the context of ISIS, I decided to write it up 
for publication. It will probably be fairly interesting to SOSO 
(and Z'SOJ hackers, even if they don 't have access to an MDS. 
Vie ISIS disk allocation and directory policies would make 
en excellent standard for floppy disk file systems. 

TJiis article mav also be use fill as context for Max 
<ZOSton'sRIMOS{bD} 9111}. 

Very truly yours. 
Perry C Hutchison 



ISIS (Intel Systems Implementation Super\-isor) is the 
floppy disk opcraiing system developed by Intel Corporation 
for the Intcllec MDS microcomputer system. ISIS was written 
entirely in PL/\I. adiaiectofPL/l oriented to the SOSO micro- 
processor. The ISIS system is exceptionally well designed; it 
bears significant resemblance to Bell Labs' UNIX operating 
system for the PDF- 11. 

Intel has released neither tlie source code nor any internal 
documentation concerning ISIS. Since a knowledge of ifie 
internal workings of such systems is occasionally needed if 
lliey arc to be utilized to tlie full extent of their capabilities, 
a study of the object code was undertaken. This document 
contains the principal findmiis of that study. It should be 
useful both as a reference for use by persons h;-/ing occasion 
lo deal with the internals of tlie ISIS system and as an educa- 
tional example of what really goes on in a small single-user 
operating system." Names used are taken from the published 
.ISIS documentation where appropriate. 

Trie information contained herein ha-s been derived from an 
examination of the onicct code of Version J. 2 of 32K ISIS, 
leccivcd in August, 1976. (The same disk also contains Version 
1.1 of ASMSO. 1.3 of EDIT. 1.1 of UPM. .md 2.0 oflCESO.) 
Except where a more general applicability is specifically 
Slated, this information should not be expected to apply to 
.V other %'crsion of ISIS. 

■ It is probable that, despite thorough checking, some errors 
will be found m this presentation. Tiie author would 
appreciate being infomied of iJiem. 
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Environment 

ISIS operates in the Intcllec MDS microcomputer system, 
and uses the facilities of the MDS Monitor ROM (which 
occupies addresses F800H - FFFFH) to communicate with 
character-oriented peripheral devices (i.e. cver>'thing but the 
disk). Tabic I lists the entry points and functions of tlie 
principal Monitor routines. Parameters and returned values are 
handled as in PL/M - see the discussion below. (There arc, 
of course, addirional subrourincs in the RO.M, but an assembly 
hsiing of the ROM is included with the MDS and anyone 
interested in its internal workings can look it up. ISIS uses . 
no Monitor entry points other than those listed in Table 1.) 

A detailed description of the MDS disk controller is 
contained in the ]nlc\ MDS -DOS Hardware Reference Manual 
and will be only brietly summarized here. The controller 
occupies I/O ports 7SH • 7FH, and is controlled principally 
by a program -generated "I/O Parameter Block" (lOPB) in 
memory, the address of the lOPB is supplied to the controller 
by ouipuliing its low. and high bytes to output ports 79H and 
7AH. The lOPB identifies ^he drive, the operation to be 
performed, the sector count, the track address, the starling 
sector address, and llie starting memory address for reading 
or writing. The disk controller contains a DMA controller 
which is used for reading the lOPB as well as for transferring 
data. 

Organization 

ISIS consists of some 57 PL/M procedures, including 8 
which merely provide access to tlie Monitor RO.M. The 
remaining 49, plus two compiler-generated subroutines, arc 
listed in^Table 11: Figures I and '2 depict the caller -called 
relationships. (Many of the routines of Fig. 1 call one or 
more routines of Fig. 2, but the spaghetti efl'ect would render 
a combined drawing incomprehensible.) The heaw lines in 
Fig. 1 lead to routines which directly correspond to and 
implement the various ISIS system calls. (The procedures 
ERROR and XEQIOPH are actually Fig. 2 routines, but the 
direct calls to lliem from ISIS arc shown in Fig. I for com- 
pleteness.) 

Table II should be largely self-explanatory, with the 
exception of a few abbreviations and notational convcnt[ons. 
The second column contains the Entr>' Point address ot the 
procedure. Tlic columns labeled "T" signify the Type of the 
associated quantity: A (Address) denotes a 16-bit value B 
(Byte) an S-bii value, and L (Logical) a Byte value used m 
a True-False sense. (An odd value is taken as True.an c^cn 
„-i..- .. tr_i.. \ -n., ^^i...„,. UK..J.-/4 "AnnR*' is uscd Jor 
two related purposes: in the case of procedures which have 
parameters, it gives the memory address at ^'uch each 
parameter is stored: in Uic case of non-parametric pioccduics 
it gives the address at which Uie first of Uiat procedure t 
local variables is stored. (Local variables of pjrametiic pro- 
cedures are stored immcdiatelv following the last paramctcr.j 
A dash in this column signifies that the procedure has no loca 
variables and. except in Uic case of Uic compilcr-generateU 
subroutines, no parameters. 
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Wlicr? one procedure Is entirely contained within another, 
tiic lai)lc entry for the Inner proccduic inimcdiatcly follows 
Vhat for the outer one and Uic inner name is indented two 
.spaces. 

'Data Stnicturcs 

One of the principal motivations for this study has been the 
desire to obtain inlomiation of diacnosiic usefulness. To that 
end, Table Hi presents a list of memory addresses whose con- 
tents may assist in diagnosing troubles. In addition, parameter 
values in active procedures may be usci'ul. A traccback of 
procedure calls is fairly easily obtained from ll'.e stack, since 
entries other than return addresses arc rare. The locations of 
the parameters may then be found from Tabic II. 

Tlic central m -memory data structure of ISIS is the File 
Structure, located in memory addresses 29E5 throuf:ii 2B1B 
inclusive and summarized in Table IV. The File Structure 
consists of 18 tables, each containing 10 entries; each table 
has associated with it a "current pointer" which contains the 
address of the entry in that table winch pertains to the current 
file (whose table index may. in turn, be found in 29E5). The 
first two entries (numbered and 1 ) in each table always refer 
to Ihc directories of disks and ] ; in a sense the directories are 
always open, ahhoueh they do not always have buffers allo- 
cated. Entries 2 and 3 are tiic console files :C0: and :CI:. This 
leaves entries 4 througji 9 fcr the six files wluch a user 
program may have open -at any one time. Each open fiie 
corresponds to one entry in each table, but most of these 
entries are unused if ilie file is not on a disk. 

The parameter AFT which many of the ISIS procedures 
require is simply a number in the range of to 9"identifyLig 
a set of entries in the tables of the File Structure. This differs 
from the AFTN supplied by the user (and retuni^-d by OPEN) 
inthalAFT = AFTN + 2. 

Tlie I.V. (Initial Value) sho\\'n in Table IV is the value 
which appears in the particular File Structure member for a 
disk fiJe which has just been opened. 



Disk Layout 

'The principles of the ISIS disk organization were rather 
well described by David Yulkc in the December 1977 issue 
of Kilobaud (although he didn't mention ISIS by name), 
but will be included here for completeness and to provide 
additional details. 

In ISIS, every disk sector falls into one of three croups: 
Data blocks. Linkage blocks, and Free blocks; thii statement 
applies to system data as well as to user files. An ISIS file 
sonsists of Linkage blocks and Data blocks. Data blocks 
contain the bytes which compose the file, while Linkage 
blocks (Yulkc calls them Map blocks) tell how the Data 
blocks arc to be linked together. The first two bytes of a 
Linkage block contain the disk address of this file's preceding 
Linkage block (zero if this is the first). All disk addresses 
in ISIS are stored as a Block Number and a Track Number. 
Tracks are numbered from to 76 and the blocks of each 
track arc numbered from 1 to 26. The next two bytes contain 
llic disk addicss of the following Linkage block. The remaining 
124 bytes contain the disk addresses of up io b2 data blocks. 

Every ISlS-fomiai disk contains four system files, 
collectively rclerrcd to as the Fonnat files. Tlicsc may be 
opened for input and read just like any other llle, but may 
never be written into (except by special system rouiincs). 
Tables VI and VII Ijst the Fonnat files and describe their 
contents. 

llie system dws not always bother to look the Format 
flics up in the director)*; it assumes that their locations arc 



known. Tlius the first Linkage block of the directory itself is 
always assumed to be Track 1 Ulork I, and the Djia blocks of 
the Allocation Hit Map are assumed Io he Track 2 Blocks 2 
and 3. llie boot ROM expects to find the System Initiah/jtion 
Program starting at Track Block 1 and occupying as much of 
Track as may be needed; the System Iniiiali/aticm Program 
then assumes that the first Linkage block of the file ISIS.BIN 
(which contains the system proper) will be found at Track 2 
Block 4. 

Secret "XEQIOPB" System Call 

Tlie XEQIOPB system call is not described in the published 
ISIS documentation. Its "command" value is 68 decimal 
(44 hex); the "parameter block" must contain the following 
3 words: 534Bli, drive, .iopb (where drive is or J and .iopb 
is the memory address of -the lOPH to be executed). This is 
presumably intended to be used by programs like FORMAT 
which need to pcrfonn disk operations not needed by 
"normal" programs. Tlie IOPB is to be set up as if it were to 
run on drive 0, regardless of which dnve is specified; XEQIOPB 
takes care of inserting tlie drive identification in llie proper 
places. Normal system handling of disk errors is provided. 
Note that this call bypasses all directory accessing, file map- 
ping, and protection flags, and must tlicrcfore be .used only 
with extreme caution. One possible use would be in a program 
which does a sector-for-secior copy of a disk. This would be 
much faster than FORMAT SA since the normal disk alloca- 
tion mechanism involves considerable overhead. Such a 
program could even copy a non-lSlS disk, e.g., DEC RTll, 
CP/M, etc., if needed. 

Similar calls exist in Version 1.6 of 16K ISIS (the 534BH 
entry in the parameter block is noi examined, but the drive 
and the IOPB address are still taken t'rom ihc second and third 
words) and in Version 2.2 of ISIS- II (the parameter block 
contains only the drive and the IOPB adress - the 534BH is 
omitted); hoW'ever since this is an unpublished feature, any 
program using it must be considered sysicm-dependent. The 
•possibility "exists that such programs will not work with some 
future version of ISIS. 



User-Program Use of ISIS Procedures 

A user program may occasionally need to perfomi a proces- 
sing task similar or identical to tliat performed by one of the 
ISIS procedures. In such a case, it may be desirable to call the 
system routine rather than having to write and debug code to 
perform the same function. In order to do this, a few details of 
the implementation of PL/M must be understood. 

Up to two parameters of a procedure are passed in via 
registers. (The first thing a parametric procedure does is to 
store the appropriate registers into die memory locations 
reserved for those parameters.) A procedure having one para- 
meter will expect the parameter to be in the C register (if a 
Byte) or in the BC register pair (if an Address). \\ there are 
two or more parameters, the last will be in the E (or DE) and 
llie ncxt-to-last will be in the C (or BC). The CALLER must 
store all other parameters into iJic proper memory locations 
bet'ore the procedure is entered. (This scnmds messy, and it is. 

V! ^_ i>i ixt >^.>. ..:!<.... ~^-.^,- >w>... ^..^.^.^Afnrc nn thp tfnrL- 

which is much nicer.) 

A procedure which returns a Byte value will return it in the 
A register; one which returns an Address will return the more- 
significant byte 'in the B register and the Icss-significant byte 
in the A. (Note: this does not apply to the compiier-pcneratcd 
MPY and DIVIDE routines - see T.ibic II.) Except for such 
returned values, the contents of the registers upon return from 
a procedure cannot in gcneial be dei>cndcd upon. 
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Tlic bcncHts of usinp a system numnc nniM of course be 
wciVJR'd at:^i"St the cxtrc.nc syslc.u dL'pfiulcncy which results: 
The routines will .hnoM certrnuly he m d.lle.enl pbccs .n 
different versions of ihc sysien» and there is no pinronlec 
that, even after they have been found in a new version. lUeir 
results will be the same as before. 

Conclusion 



Users of the ISIS operating system have heretofore been 
hampered by the lack of documentation on its mlernal opera- 
tion Willie such documentation is not necessary most ot the 
lime the need for ii occasionally becomes critical. Tins presen- 
tation should panially fill that need for Intel customers while 
also assisting hobbyists in undcrstandmg how a lirsi-rale 
operating system and file handler is organized. ^ 
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CP/M USERS* GROUP 

Dear Jim: Received: 77 Dec /ff 

Just a note to inform you that there exists a CP/M Users' 
Group wiiich is active both in user so! twarc cxchan.r,c and also 
in group purchasm^i of proprietary software. Althuu^Ji desig- 
nated C'P/M Users' Group, we also naturally welcome users of 
IMSAI DOS- A and M-DOS and of the Cromemco CDOS. and 
soon expect to see a TDL FDOS which is similarly compatible 
with CP/M in terms of program load point, DOS call conven- 
tion and diskette allocation and directory format. 
Kindest retards. 345 i- 86 Street 

Anthony R. Gold New York. Ny 10028 



NORTH STAR EXECUTIVE SOFTWARE 

Nev^ Release , Receh.ed:77 Sept 13 

XEK, a complete system executive package for North biar 
users is now available from the Byte Shop of Westminster. 

The XEK package contains a disassembler capable of 
creating files that may be left in memory when changing trom 
the disassembler to the exccuiive package lor re-asscmbiy. 
The monitor software has the ability to accept input Ircm 
cassette tapes and paper tape as cither source or objtfct files, 
as well as from the North Star diskette system. In addition. 
the ai-scmblcr features a new auto-line editor for L'le creation 
of source files. This editor also extends to the modification oi 
existing object files. . 
Another feature is the XEK's ability to handle up to six 
named files at once that may be consecutively assembled to 
form- one object file. The assembler, monitor, and disassembler 
come with complete documentation, both on disk and as a 
manual. Total price, mciuding first class postage, insurance 
and California resident's sales lax. is S4S.00- For turiher 
information and ordering, contact: The Byie Shop ol \Ves^ 
minster, 14300 Beach Boulevard, Westmmster, CA 9.ots.j, 
(714)894-9131. 
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Table II. imemallSIS Procedures 



ABORT 



B.p. FARAMETtR T AOOR BETWNS T 

20FP 



2584 



PURPOSE — — »- — '^'"-' 

Terminates execution and ^S?V 
reboots system; usual XEQIOPB 
entry vl« in^"'™Pj.i. 
vector »t address 0008. 



.^. 0.0 cMVH . «. ««-/ -iTcU'.ruf'r.ir,^ K 



5" 
o 



ATTRIB mo .FILEHWE A 206A 



•tMA5C 0093 NV3ER ^ 2992 

KlIERE A 2^5* 

hOlClTS D 2998 



AUniAWM 6AB 



IXTDXC 



I CLOSE -ISFf ^ 
o 



B 2075 



o 






BE^mC PStC OMVe^ 



B 2CC9 
A 2CCA 



Z 
c 
3 

C" 



OCLETE ICCB .FILr.HA^tE A 2l)^E 



Sots fllo attributes. 



Converts binary NU>tBER 
to Ascll representation 
In requested D,V»E 
startinR at MIERE. 

B Converts "t-^NAME to 
Internal form in IKTFN. 

L Returns TRUE If byte at 
(2DaA) Is fl letter or a 
diRlt. 
Closes specified fll«. 



F.RHOR 
CFTFN 

SEAncn 

SETTAnS 

SYNC 

WITE 

DIVWE 



dears 128-byte BUFFER 
to leros. 

Chanjses console file 
asslRnncnts. 



Keleases disk blocX. 



ALPIIANUM 



FREEBUP 
MPY 
RHAO .. 
REWIND. 

Rw>wr 
snr.K 

Sl-TTADS 

sizr.CK 

SYNC 
KUTSEC 



CLOSE 
ERROR 
CrjFM 
OPEN 

MPY 
Rb^tAP 



rii* .Iven Its ERROR 
Deletes a file Riven ix» ^^^^^ 

name. SCRATOI 

SI". ARCH 
SEITARS 



NAME— < 
OIYIOE 



EDIT 



.- E.P. 



PARAJtETCR T ADDR RETVPJ^S T ^^-^^ 



OODA (BC) 
(UE) 



A — 
A — 



(CC) 
(UE) 



OFOO 



AFT B 20 I 

.DUFFER A 2012 

cou^^• A 201 4 

.ACTVAL A 2D16 



ECHO OFDD a»AR B 2028 



ERROR 



EXIT- 



FIO 



0l6S FLAG 

C0.«2 



2S2A 



B 29A2 
B 29AS 



2l)FE 



Corr.pller-RenerttcJ 
division routine. 
Divides BC by DE; 
returns quotient In Bt, 
rcMlnJcr In DE. 

Called In pUce of READ 
when llne-cdltlnx l» 
required. 

Writes CIIAR on echo . 
file. 

If FU\n - 0, returns 

CODE to user. 
If FLAG • 1. prints 

p.esssRe. ,. 
If FUG • 2, prints 

ttesssne and aborts. 

Closes files and returns 
to system. 



tovy 

ERROR 

RFJ^O 

*aiT£ 

srrrA?5 

KTvlTE 

BINASC 
CO 

loaiK 

lOSET 



CLOSE 

LOAD 
R>^VAP 



0B18 



AFT 

.BUFFER 
COUNT 
.ACTUAL 
REAUFLAC 



B 2CCF 

A 2cua 

A 2CD2 
A 2C04 
L 2CD6 



Transfers COUNT bytes '^f!'^ 

between disk file buffer CLRB.F 
and oiler's BUFFCJ^; f^ 

RDVDFUC is TRUE to TtsJ RD;EC 
frora file. slZtCK 

»iRTSEC 



CETO 0823 

FREEBUP 0251 .BUFFER A 29E2 

*.,t.* 2B1E AFT 

CETAFT -OSE? 

GETBUP 0276 

CETFN 



.ALLOCATt 
CLR9UF 
KRTSF.C 



Allocates ne»» Oat* 
blocks as needed. 

Releases BUFFER to 
buffer pool. 

B AssUnS AFT for flic to ERROR 
be opened. 



0882 .FILENAME A WM" 
.INTFN A 20A6 



Pa„e, param to CANOMj CASW 
calls ERROR If needed. ERRO^ 
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tWK' 



ISIS 



E.P, FARAKETOH T AOOR RETURNS T PURPOSE- 



0040 



EUXK 



B 2921 
A 2922 



8- • 



O 

o 
3 



-: KTf 



OP£M 



22SC .PILENA.ME A 2DE8 

BIAS A »EA 

HXTSK A 20EC 

. .D^RY A 2DnE 



OAOC (BC) A - 

(DE) A - 



|D9$ .FILEKAME A 2DA2 
ACCESS A 2DA4 
ECItOAn' A 20A6 



(OE) 



ATTN 



FREEl IBAJ tMWH • »B0 



FREES IOCS ERWUM B 2DB1 



.Principal user entry 
point to operating 

system. 



Leads mM optionally 
executes «n absoluto. 
binary file. 



A Compiler-generated 
irultlplicatlon routine, 
(OE) - (BC) • (nn) 

B Opens a file Riven its 

nane; assigns and 
returns Index in fll« 
table.' 



Frees line-edit buffer 
(If any), then calls 
ERROR(0, ERIWWt). 

Frees link and data 
buffers, then calls 
FREEKERHNUM). 



CAtLS— 

ATTRIR 

CLt>SE 

CONSOLE 

DELETF. 

EDIT 

ERROR 

EXIT 

LOAD 

Ori:N 

HEAD 

RfiNA-^tE 

RLSCAN 

SEEK 

MIOCON 

WITE 

XEQIOPB 

TOPEN 

CLOSE 

nanoR 

MtftCK 
OPEN 
PACKnUFS 
READ 



ALLOCATE 

CLRDUF 
ERROR 
FREE I 
FREES 
CETAFT 
CCTOUF 
GET FN 
RI.NIND 

\wn\p 

SCItATCII 

SLAHCII 

SETTABS 

SYN'C 

WRITE 

HUTS EC 

ERROR 
FREEOUF 



FREERUP 
FREEl 
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PACKBUFS 0«1S 



m 



2B20 tOKLlM'A Moves buffers currently tOHBUP 
in use to lowest 
possible locations; 
returns lowest vacant 
address. 



LOHBUP 0418 .BUFPTR A 2B22 



RDSEC 06S8 TRKSEC A 2B44 

.BUFFER A 2B46 



READ 0E65 AFT B 2CD0 

.BUFFER A 2CDE 

COUNT A 2CE0 

.ACTUAL A 2CE2 



RENAME 1AE8 .OLDKA^ffi A 2D8E 
.NEWNAim A 21)90 



RESCAN . X276 AFT B 2D29 



REWIND 12B4 



RWMAP • 08AC DRIVE B 2CC0 
OPCO B 2CC1 



OPMAP 08 BS 



SCRATCH 1BB7 DRIVE B 2D9S 



SEARCH 



1723 .INTFN A 20SC 



Moves buffer whoso FREE8UF 
address is in DUFPTR to CETBUF 
a lower position, if ond 
is available. 



Reads requested disk 


XIO 


block Into SUFFER, fron 




proper drive for current 




file. 




Reads characters froT« 


CI 


file Into BUFFER until 


ERROR 


COUNT Is satisfied or 


FIO 


end-of-flle is reached. 


RI 




SETTJEV 




SETTABS 


Chan];es the name of a 


ERROR 


file. 


CETFN 


• 


SEAP.ai 




SETTA&S 




SYNC 




>»RITE 



Sets the next-byte ERROR 
pointer of a llne-edltej SETTABS 
file to the beRlnnlnjt of 
the current line. 

Initializes several fllo RDSCC 
tables and reads In 
first link block. 



Reads or writes bit Bap 
on requested drive, 
uslrn Internal buffer. 

Constructs inPB'S for* 
Rh;iaP and has thert run„ 

Deletes all disk space 
allocated to file whoso 
directory entry Is at 
2D4A. 



Looks up file 
represented by IKTFN Iw 
appropriate directory. 



OPtAP 



XEQIOPB 



DEALLOC 

RhVAP 

SEEK • 

SETTABS 

KniTE 

XEQIOFB 



FREFBUF 
CETBUF 
>tPY 
READ 

RTvivn 

SEEK 
SETTARS 
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Tabic III. ISIS Variables of Diagnostic Significance 



o 

o 

3 



a 



o 

s 



SEEK 12rO ATT 8 202D 

MODE A 202E 

.8L0C;KK0 a 2U30 

.BYTllNO A 2U32 



Repositions tho next- 
byte pointer of a Jlsk 
file. 



CFFEW X2rD BLKNUMA A 2D44 LARGER t Returns TRUE if 

BLKMNB A 2D46 requested seek voul<l 

BYTCUMA B 2048 . enlarRO file. 

BrTE^■u^a b 2D49 



• SETTJEV OEJO 



SETTABS 02C8 ATT 



B 2B1D 



• StZECK OACQ 



STKC 



1711" 



♦nwCOM 22A0 AFT B IDCt 

.BUFFER A 2DE2 



WITE 0F12 AFT . B 2CFr 

.BUFFER A 2CF8 
COUVI' A 2CFA 



t^TSEC 067B TRKSEC A 2B48 
•BUFFER A 2B4A 



XEQIOPB 0S14 DRIVE 
.XOPB 



B 2B29 
A 2B2A 



XIO 05F6 OPCODE I 2BJ4 

drive: 8 2B55 

TRKSEC A 2B36 

.BUFFER A 2B38 

?OP£>t 2SB8 



ALLOCATE 




CLRDUF 
ERROI^ 


ADDRESSES 


OFFEND 




RD5CC 


28C0-2920 


REWIND 




RWMAP 
SETTABS 


2928-2931 


SIZECK 
HflTSEC 


294C-294D 




294E-29aU 




299C" 



Sets up ROM's •♦lOBYT' to 
steer I/O properly. 

Sets up "current 
pointers" Into fllo 
tables. 

Updates file lenjtth In 
tables. 

Forces delayed write of 
current data block. 

Copies Into BUFFER the 
name of the requested 
console file. 

Writes COUNT characters 
on file fron BUFFER. 



loaiK 

lOSET 



WRTSEC 



CO 

ERROR 

FIO 

LO 

PO" 

SETDEV 

SETTABS 



Krltes requested block 

from BUFFER, on proper 
drive for current file. 

Runs Riven lOPB on 
requested drive. 

Constructs lOPB to 
perfOHT! requested 
operation, and has it 
run. 



XIO 



ERROR 



XEQIOPD 



Increments user-supplied ERROR 

AFTN value by 2 to • 

obtain internal value; 

if this docs not 

correspond to an open 

file, calls ERnOR(0, 2). 



co^^•E^TS. 



2990 



299E-299P 



29CB-29D0 



29ES-2C18 

2B29 

282A-2B2B 

2B2C 

2B20 

2B4C-2B7S 

2D86-2B3P 



2BA8-2CA7 

2CA8 

2CA9 

2D4A-20S9 



Unused area, reserved for future expansion. Ml^ht be usetl 
for temporary debu^RlnR code, or for "patches,"' 

Copy of current command paraaeter block. 

User's Stack Pointer, 

ISIS stack. 

VebuR Switch (Lo;;lcftl). When True, fatal errors WU Invoke 
the >tOS Monitor instead of aborting the pro/jraa. 

"CONSOLE" command fla^. Value Is 2 vhlle processing a 
CONSOLE system call, and tero at all other tines. This is 
what causes all errors detected by CONSOLE to be fatal. 

"Result Byte" and "Result Type" Rcnerated by disk channel in 
connection with a "luird" (non-recoverable) disk error. For 
details, sec the MDS-DOS Hardware Manual. (These are 
inrinted as part of the "ERKOR 24" message.) 

Buffer Table, containing one byte for each of 19 posslblo 
buffers. The possible values of each byte are: 

Free. 

1 Space preempted by LOAD since the buffer area 
contains part of the user prograa, 

2 In use as a buffer. 

The buffers thenselves bcRln at address 2E00; each buffer is 
128 bytes lon^. 

File Structure (see Table IV). 

Disk drive most recently accessed. 

Address of lOPB. 

Result Oyte. 

Result Type. • 

Table of 2- byte. device names (each ntnt stored buckvards). 

Internal-format najao of last file sought by SEAROI, 2886 
contains the device identification (index in table at 234C), 
2Ba7-2D3C contain the file name, 2BttD-2B8P contain the * 
name extension. 

Bit Map Duffer. 

t 

Drive to which this bit nap belongs.' 

(Logical) True if bit nap has been aodlfied since it was 

last written. 

Directory Entry for last file found by SEAROI, ut it then 
appeared. (This is not kept current with respect to trcvth 
of the file.) 



ADDRESSES COtTTVfTS- 



Table V. ISIS Device Identification Codes 



2DB2-2DCO Kaa« of currant tCIt fll«. 

22)C1-20CP HUM of current :COt fil«. 

2UF6-2UF7 Address field of Imt logical record read by LOAD, (Except 
durinf a LOAD,, thl» turn* out to be the entry point of the 
Iftst file LOAOed.) 



2eoo* 



Buffer Area, 



Table -IV. ISIS File Control Structure (in memory) 



KAME- 



CLOSO 

DEVICE 



ACCESS . 



EBUP 



DBUF 



BYTEMO 



OKUM 
LBUF 



m 

5- USTBYTE 
t ALLOC 



to 0>CO 

M 

BLKCKT 
BU^O 

. lADOR 

^ LIADOX 

* 



BASE T CUR. 
ACDR PTR. ^ 

2AdE L 29EA 

2A1B B 29EC 

2A22 B 29EE 

2A2C B 29F0 

2A36 A 29F2 

2A4A A 29F4 

2ASE B 29F6 

2A68 A 29F8 

2A7C A 29FA 

2A90 B 29FC 
2A9A ' B 29FE 

2AA4 L 2A00 

2AAE L 2A02 

2AM A 2A04 

2ACC A 2A06 

2AE0 A 2A08 

' 2AF4 A 2A0A 

2808 A 2A0C 



X.V, DESCRIPTIOW- 



True If this file is not open. 

Device Identification (see Table V). 

Value of OPEN'S ACCESS parameter. 

AFT of echo file; tero If non-edlt. 

Address of edit buffer. 

. Address of data buffer (copy of current 
element at 29E8). 

128 B/te counter in data buffer. 

Position In directory. 

AJJress of link-blocK buffer (copy ojf 
current elctnent at 29E6). 

1 Word pointer in link block. 

Kuffber of bytes In last data block. 

P True If allocation has been done for 
this file. 

'\ r True If current data block has been 
''•^. »odlfled, 

Nunber of data blocks In this file. 

.Sequential number of current data block 
within this file. 

(2AP4) Track-Sector address of current link 
block. 

Track-Sector address of file's first 
link block. 

Track-Sector address of current data 



NUMBER 


DEVICE 





:ro: 


1 


■ ;Fi: 


2 


:TI: 


3 


;T0: 


4 


:Vi: 


5 


rvo: 


6 


ill: 


7 


:01: 


8 


:TR: 


9 


:iiR: 


10 


2R1: 


11 


SR2: 


12 


}TP: 


13 


• sllP: 


14 


jPl: 


15 


:P2: 


16 


!LP: 


17 


. !Ll: 




Table VI. ISIS Format Files 

HEX DISK ADDRESSES 
FILE KAI^tE LINK —DATA— CONTENTS————————— 

XSIS.TO 0,18 0,1 - 0,17 System Inltlalltatlon Pro^i-aar, 

XS1S.LA8 0,19 0,1A Disk Ubol. 

ISIS.DIR 1,1 1,2 - 1,1A Disk Directory (see Table VIX). 

ISIS.MAP 2,1 2,2 <^ 2,3 Allocation Olt Map, 

Table VII. ISIS Directory Entry 

BYTES CONTENTS — * . • ' 



00 Flag: 00 ■ active 

7P «• never used 
FF ■ dolcted 

01-06 Pile Name 

07-09 Name Extension 

OA Attributes: Bit • Invisible 
Bit 1 " Systc™ 
Dlt 2 « Write-protect 
Bit 7 • Format 

OB Number of bytes in last data block 

OC-00 Number of data blocks 

OE-OF Disk Address (Block, Track) of 
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ISIS BRERKDOWN 

TRRCK SECTOR USE 

® 1-52 ISIS. T0 

1 2-52 ISIS. DIR 

^ '1 HERDER BLOCK FOR ISIS. DIR 

5 • 1 HERDER BLOCK FOR ISIS riRP 

^ 2-5 . ISIS. MRP 

^ f HERDER BLOCK FOR ISIS. Bir4 

^_.,? --^^-^ HERDER BLOCK FOR ISIS CLI 
I -.lb.. LRB CONTRINS THE DISK LRBEL ONLV. SECTORS ±RH- 

34H ON TRRCK 0. SECTORS ±BH-24H ON TRRCK 1 HRVE BEEN RLLOCRTED 
FOR ISIS. LRB. . THRTS QUITE R LOT OF FREE SPRCE ' 

ISIS. MRP: THE SECTORS USED PER GIVEN TRRCK COR DISK> RRE 
ij-^^'^^^ SEQUENTIRLLV STRRTING RT TRRCK 2 SECTOR 2. BIT O OF BVT. 
0. <BIT OF BVTE O WOULD BE SECTOR ± OF TRRCK ©.-> IF R GIVEN BIT 
IN ISIS. MRP IS SET TO fl ONE. THE CORESPONDING SECTOR ON THE 
DISKETTE IS BEING USED. THE BIT PRTTERNS RRE RERD SEQUENTIRLLV 
RND 52 SECTORS RRE RLLOWED FOR DOUBLE DENSITY. 26 FOR SINGLE. . 



1SI6*1I DiSKette iJDeratinci Systen- i-oiKlore, vi.u 
Steve K r e u s c n e r 



I his discussion is 



xrus discussion is inienaea to answer o z 
regarding the ISIS-XX operatinq system and its 
structure. It is not intended to be a coniplet 
of ISIS-II. It is not coniplete? any inputs fo 
will De aporeciated. 



will De aporeciated. 



te* questions 
its disKette 
:e oreaKoown 
>r additions 



l.Q ISIS.PIR 



1.1 Purpose - Directory of tiles tor use by iSiS.CH 

1.2 Location 

Linkage olock - sector if fracK l 

Data blocks - fro^r; Sector 2, Tr3ci< l 

througn sector lAH, Tracx 1 



7F 
7F 

7r 
or 



l.i Description 

This is not to be confused with tne disKette tiie 
called PlH. DIR is a program which accesses ISlS.DIk 
to list tne names of the currently open files on the 
diskette. isis.DIH is actually a taole. fcach entry 
consists of 16 bytes. when GkHEF is used to display 
a DlocK ot ISIS.OIR, the CRT display consists of the 
128 hex bytes that make .up the bjock.aod their ASCII 
equivalents: 



1 



2 3 



<k9 53 49 53 00 00 

*9 53 49 53 00 00 

43 52 45 44 49 54 

FV iD 59 50 52 4F 4? 



)0 00 00 00 00 

;0 00 00 00 00 00 

)0 00 00 00 00 OU 

iO 00 00 




01234567fe9ABCDfcF 

•ISIS. .HAP. . • * ■ . 

.CREDll ,,,.6<fc).., 
.NYPRUGOej 



.... 



• • • » • 



Byte 



Current status ot tile 

00 = in use 

7F = never usea 

FF = deleted 

Note that when a file is deleted, the file itself 

reinains intact; only this byte of ISIS. DIR changes. 



Bytes 1 through b - File neine 
Bytes 7 through 9 - Fxtension 



Byte A - rttrinijces 

bit set = i n V i s 1 o I e tile 

Dit 1 set = syste'T file 

Dit I set = *rite protected file 

Dit 7 set = torniat tile 

(bits 3 throuon 6 not used) 

Byte b - Number of bytes in last data. biocK. This is used 
to deterfT'ine tne location ot the en'3 of files 

Bytes C and D - Nurroer of data oiocKs used by tne file, 
oyte C = least significant Dyte 
oyte D = fpost significant Dyte 

Byte h. - Sector of the first linKage blocK, 

Byte F - Track of tne first llnKage blocK, 

Last Data BlocK 



ivSl^-11 only stores data 
The number of bytes in a 
fflultible, but tne system 



on diskettes in i28-byte blocKs 
file will not often be an exact 
'4111 occupy blocks in Integer 
increments only. Thus, the system needs to i<now tne 
number of bytes used in tne last blocK of the file, in 
order to deterifilne tne whereabouts of End-of-File, 



Linkage Blocks 



2,0 



Since every f 


ile is broken up into l2B">byte pieces and 


strewn aoout 


wherever there is room on tne diskette. 


XSlS-ll needs 


; to know where tne pieces are, and in what 


order to load 


1 theni. That information is contained in 


the linkage olock. tacn file nas a linkage block for 


every 124 data blocks. It lists the sector and tracts 


of each data 


blocK in tne order in which they are to 


oe loaded, *^ 


ihy only 124? Because tne first two bytes 


of tne block 


sho* the sector and track of any preceeding 


linkaqe block 


, ^T\<s the next two bytes snow the sector 


and tracK of 


any subsequent linkage block, for any 


file that is 


less than 124 blocKs, these will be 00, 


''■■ 


xii ^:r..--^ '^'Q'": Hu«c iV^^^-'-jc^r ^v:^'" ^-.^.^ ^n^ 


ISIS. TO 





2.1 Purpose - Track Loader 

2.2 Location 

Linkaqe block - Sector IBH, Track 

Data blocks - froiii Sector 1, Track 
through Sector 17H, Track 



2.i Description 

This is tne file pulled in oy the system's monitor 
when the diskette system is initialized. It begins at 



sector 1 
so it IS 
diskette 



3 • u 1 S 1 5 . H A P 



of trdc< C'no^Tie" 
if(ime-3iatei,v loaoej 
operating s v s t e ni . 



-/ .<? 



\ * i / *■■ 



position tor trie drive), 
as tne first action ot the 



3 = 1 p u r D s a - Bit '^ a D o t Diskette Blocks 



3.2 Location 

Linkaqe block 
Data clocks - 



lector 1, Track 2 

from sector 2, Track 2 
throuqh Sector 5, IracK 2. 



3^3 Description 

This tile is a bit map ot all diskette blocks, 
used to aetermine which olocks are in use. Each of 
the 4004 blocks of the diskette is assigned one bit 
in the map. A set bit indicates that the block is in 
- - use* - - - - - - - - 

Sector 1 of Track U is represented in the map by 
Bit 7 of Byte of ISIS, MAP. Sector 2 is represented 
by Bit b, sector 3 by bit 5, etc. Since there are 4004 
blocks on a double-density diskette, ISIS. MAP needs to 
store 4004 bits. Thus, it occupies four blocks (4096 
bits) of data. 



4,0 IS1S.LA6 



4.1 Purpose - Diskette Label 



4.2 Location 

Linkage block 
Data blocks - 



- Sector 19H, Track 



from 
through 
f ron 
t h r u a h 



Sector 
Sector 
Sector 
Sector 



lAH, 
34H, 

IfeH, 
34h, 



Track 
Track 
Track 
Track 



4.3 Description 

This space of 53 blocks (6784 bytes) is reserved for 
the laoel of the diskette, which is limited by ISIS 
to nine ASCiI characters (six for name, three for 
extension). The label may only be issuea at tne time 
of diskette initialization, and can only be altered 
using GA^fet (or equivalent), R&mame *on't work. 

Yes, this aoes seem like a lot of soace for storing 
nine characters. Actually, the version number of 
ISls-11 V4.0 is also stored here, so that brings the 



total to eleven. 



:00' 



tor future expansion? 



5.0 1 S J S . B 1 1^ 



b.i Purpose - binary file of. Operatinq System 



b,2 Location 

LinKage oIocks - Sector b, TracK 2 

Sector lln, IracK i 



Data DiocKs - 



LTom Sector 1, IracK 2 

throuoh Sector 34H, IracK. 2 

from Sector 1, IracK 3 

througn Sector lOH, TracK 3 

frofTi Sector 12H, XracK 3 

throuQh Sector 2Fri, TracK 3 



b.i Description 

This is tne niain brains ot ISIS-H, Tnis is the program 
tnat actual iy runs tne system wnen ISJS-II Is operating* 



6.0 ISIS.CLI 



fe.j Purpose - CofrsT.and Line Interpreter 



6.2 Location - 

Linkage block 
Data Dlocics - 



Sector iOH, XracK 2 



from 
througn 
f ron-f 
tnrouon 



Sector 
Sector 
Sector 
Sector 



3iH, 

34H, 

i r 



IracK 
TracK 
Track 
iracK 



a, 3 Description 

This is tne portion of IS lS-1 1 whicn accepts co'Tsmand 
lines from the operator and determines wnat to do witn 
thenu If you issue an invalid corrmand, this is where 
it gets rejected. 
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PREFACE 



I. Substantive differences between the ERS for ISIS-II Version 
3, revision 2, and the ERS for ISIS-II Version 4, revision 
.0, are: 

1. Section 1.3.1. Addition of hard disk drives. 

2. Section 3.7. Addition of Monitor work area to memory 
layout diagram. 

3. Section 3.8. Addition of explanation of buffer allocation. 

4. Section 3.8.15. Addition of hard disk devices to device 
number table. 

5. Section 3.9. Addition of hard disk platter format 
information. Deletion of Attachments A and B. 

6. Section 3.10. Addition of directory information for the 
hard disk. 

7. Section 3.12.1. Addition of switches 6,7,8,9,0,T. 

8. Section 3.12.4. Allow display of file attributes without 
having to specify a switch setting. 

9. Section 3.12.6. Addition of K switch and target devices 
:P6:, :F7:, :F8:, :F9:. 

10. Section 3.12.10. Specification of nesting levels of SUBMIT. 

11. Section 3.12.11. Addition of K switch. 

12. Section 3.12.12. Addition of HDCOPY. 

13. Section 3.13. Addition of hard disk configurations. 

14. Section 3.14. Description of changes to TOBOOT. 

15. Section 4.1. Addition of cold start procedures in a hard 
disk environment. 

16. Appendix A. Addition of correct PL/M external declarations, 

17. Appendix E. Addition of description of selected ISIS-II 
internal data structures. 

II. Differences between ISIS-II Version 4, Revision and 
Revision 1, (other than typographical corrections) fall 
into two categories. The first category concerns those 
changes which amplify or clarify the operation of ISIS-II 
but which do not represent a change in the operation of 
ISIS-II. Major changes in this category include: 

1. Section 1.3.1 "four hard disk drives (= 2 disk boxes)" 
changed to "two hard disk drives (4 platters)". 

2. Section 2.4 Remove references to PL/M version numbers. 

3. Section 3.2 "Control-Z has no echo." changed to "Control-Z 
is echoed as CR, LF." 

4. Sections 3.6, 3.12, 3.12.1-3.12.12 BNF notation revised. 

5. Section 3.6 Insert paragraph concerning relationship of 
uppercase to lowercase letters. 

6. Section 3.6 "starting address" changed to "load address". 

7. Section 3.7 Clarified relationships of UOP,TOB. 
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8. Section 3.7 "one or more I/O buffers" changed to "three or 
more I/O buffers". 

9. Section 3.7 "the more buffers ISIS-II may allocate for the 
user's benefit" changed to "the more buffers ISIS-II may 
allocate for the user's benefit (up to the maximum of 19)". 

10. Section 3.8.2 Rewritten. 

11. Section 3.8.3 Change "RAM area" to "memory area". 

12. Section 3.8.4 Added description to Mode=2. 

13. Section 3.8.7 Rewritten. 

14. Section 3.8.8. Added description of FILE$POINTER. 

15. Section 3.8.8. Expanded description of RETSW=1 and RETSW=2 

16. Section 3.8.15. Corrected Byte Bucket description. 
Deleted references to nulls in filename and filename 
extension. 

17. Section 3.9. Expanded description of hard disk mapping. 

18. Section 3.10. Added EDIT to list of ISIS-II cusps. 

19. Section 3.11.5. "is closed" changed to "is opened or 
closed" . 

20. Section 3.12. Wildcard description moved to Section 3.6. 

21. Section 3.12. Clarified explanation of invalid pathname 
and switch processing. 

22. Section 3,12.1 "of the files in the specified disk 
directory" changed to "of the filenames in the specified 
disk directory". 

23. Section 3.12.1. Clarified Pause Switch. 

24. Section 3. 12. 3.1. A 2nd paragraph reworded. Corrected 
output messages. 

25. Section 3.12.4. Attributes modified message is not 
displayed. 

26. Section 3.12.5. Corrected output messages. 

27. Section 3. 12. 10. B "SUBMIT will use the default extension 
.CSD" is changed to "SUBMIT will assume the default 
extension .CSD". 

28. Section 3.12.10.3. Added cautionary note. 

29. Section 3.12.10.4. Added clause concerning nested SUBMITS. 

30. Section 3.12.11. Last paragraph amended. 

31. Section 3.14. TOBOOT will output the appropriate error 
message when an incompatible hard disk controller is used. 

32. All references to COLONEL changed to KERNEL. 

33. Appendix E. Added cautionary note concerning changeability 
of internal data structures. 

The second category concerns those changes which do represent a 
change in the operation of ISIS-II. Major changes include: 

1. Section 3.12.6 FROM integer added. Drive is now a 
valid target device. 

2. Section 3.12.11 FROM integer added. 

3. Section 3.12.12 HDCOPY revised - added verification switch 
and backup switch. 

4. Section 3.13 The hard disk fixed platters will be :F0: and 
:F2: instead of :F1: and :F3:. 

5. Section 4.3 and Appendix C. Disk error messages changed 
from "FDCC" TO "STATUS". 
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III. Differences between ISIS-II (Version 4) Revision 1 and 

Revision 2 (other than typographical corrections and minor 
rewording) are: 

1. Section 3.2 If the console echo file is :V0: a Rubout will 
be echoed as a backspace, blank, backspace. 

2. .-Sections 3.6, 3.12.1, 3.12.6, 3.12.10.2, 3.12.11 Brackets 
were mistakenly left off the BNF representation of the 
syntax. 

3. Section 3.12.1 "Z" switch added. 

4. Section 3.12.12 Specification of HDCOPY error messages. 
Also, processing will continue upon detection of a 
miscompare in the verification process instead of exiting. 
More information will be displayed during BACKUP operation. 
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1.0 PRODUCT IDENTIFICATION 

1.1 Name, Mnemonic, and Project Number 

Name; Intel Systems Implementation Supervisor 
Mnemonic: ISIS-II V4.n 
.'Project Number: 2816 

1.2 Product Abstract 

ISIS-II provides a set of services normally required to execute 
programs on an Intellec MDS or Intellec Series 2 development 
system such as: supervisory function, logical input/output 
facilities, and file management capabilities. ISIS-II must be 
used in conjunction with a ROM-Resident Monitor and it requires 
at least one floppy disk device configured in the hardware 
system. 

1.3 Product Use Environment 

1.3.1 Hardware 

ISIS-II operates in an Intellec MDS or Intellec Series 2 
microcomputer system with at least 32K bytes of RAM memory, a 
flexible disk drive, and a console device (such as TTY or 
CRT). ISIS-II can support up to six floppy disk drives and two 
hard disk drives (4 platters) in certain configurations, a full 
complement of 64K RAM memory and all peripherals currently 
offered in the Development Systems line. 

1.3.2 Software 

ISIS-II requires access to the I/O system of either the 
Intellec MDS Monitor, Version 2.0, or the Intellec Series 2 
Monitor, Version 1.2. 
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2.0 FUNCTIONAL SPECIFICATIONS 

2.1 General Characteristics and Scope of Product 

ISIS-II is a disk operating system intended to simplify a 
microcomputer development effort by providing a convenient 
environment for source editing, assembly/compilation, linking, 
locating, debugging, and simulation. Major emphasis is placed 
on ease of use of ISIS-II, based on the assumption that the 
typical user is not a senior systems programmer, but more 
likely, an electronic engineer involved in his first software 
project. 

2.2 Description of All Major Functions Performed 

For purposes of exposition, ISIS-II is considered to comprise 
two components: KERNEL and a collection of programs called 
"user programs." 

KERNEL may be conceived as a subroutine collection which is 
permanently resident in low memory during ISIS-II execution. 

KERNEL provides facilities for loading and executing user 
programs, and serves the I/O needs of user programs. User 
programs may be Intel-supplied (e.g., the Editor, Assembler, 
PL/M) , or they may be written by the ISIS-II user. 

Whenever the ISIS-II user is communicating to software (i.e., 
by typing at the console device) , he is in communication with a 
user program, never with the KERNEL. 

User programs achieve I/O by making calls ("system calls") to 
subroutines within the KERNEL. All I/O occurs to/from 
"files." A program normally "opens" a file, then "reads" from 
it or "writes" to it, and finally "closes" it. All I/O is 
status-driven, not interrupt-driven, and except for disk I/O is 
achieved by use of subroutines in the Monitor. 

There is a system call (EXIT, see Section 3.8.7) which user 
programs make to terminate their execution (and 
RAM-residency) . This system call causes KERNEL to load and run 
a special user program called CLI ("Command Language 
Interpreter") . 

CLI reads and interprets command lines provided by the user. 
Command line syntax is described in Section 3.6. Briefly, each 
command contains a generalized keyword which specifies either a 
user program or CLI command. If the former, CLI causes that 
program to be loaded and run; otherwise CLI performs the 
indicated command and reads another command line. 
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2.3 Performance Characteristics 



t^l^^^ "' '°'°' < ^K-r^^t^sT-TMs^u^^n^Lr^in be 
fhn,^f5 f k' ^^^ result, speed of execution may suffer, it 
should also be pointed out that the system response timrwill 
depend on the bus speed and the data throughput of the 

r«T^ "^^'^ ^"-^^ controller to which the disk on which ISIS-II 
resides is connected. wnicn i&is>-ii 

The hardware does not permit ISIS-II to protect itself from 
user programs. Operation of ISIS-II conformance "this ers ,-, 
molifv"^ belo^J'itf'-'?" '•'?' '"^ "^^^ prlg"m'does'nor '' 

2,4 Applicable Standards 

ISIS-II is written in 8080 Resident PL/M. All sys^ein -a^^g 
sequence^If IIZ.''' '° ''''''' =°"^°- '° '^^ P^ameter'S^fling 

rr^lfiflf ^ll^'l^' •!:? <='^«3<=t« set used is ASCII (USAS X 
i'ft n?fl; ^^^ fle'^ible diskettes and controllers and hard 
disk platters and controller used by ISIS-II support a 
soft-sectored format with 128 bytes of data plr^fecto?. 

Formats. ^"^^""""^ absolute load files of the Object Module 

2.5 Syntax Description Conventions 

!!!2-"n/f?U"^r^"^^ Fo-^if is used. The symbols "<-, ->-, 

ana ■ are the usual meta-linguistic symbols- when hhev 
r^-'l^rM-)t%S"f 11^' symbols thiy are en^lolel ' bf braced 
ieiinef inJokaUrin'Engffsh!' ''^° "^^' '° ^"'^^^^^ ''--^^^ 

2.6 Nomenclature 

-drLe^anr-dfik-:"^"'^*'^^ meanings for -diskette", "platter", 

IDiskette" is the recording medium for floppies while "niatt-Ar" 
IS the recording medium for the hard disk; "drLe" il the 
mechanism on which the medium is mounted; "disk- is the drive 
unl^biluous'^^-!?-"-^^ diskette/Platter! Where the mlaning is 
-plattir - " °"*" "^*<^ ^" P^^« °f "diskette" and 
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"MONITOR", "MDS MONITOR", and "SERIES 2 MONITOR" are also used 
interchangeably, but where necessary, distinctions are made 
between the MDS Monitor and the Series 2 Monitor. 
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3.0 INTERFACE SPECIFICATIONS 

3.1 ISIS-II File Structure 

A "file" is an abstraction of an I/O device, and may be 
considered to be a collection of information, usually in 
machine-readable form. Throughout this document, a file Is 
formally defined as a sequence of 8 bit values called "bytes". 

ISIS-II usually places no semantic interpretation on the byte 
values of a file. The single exception is lined files (see 
Section 3.2). However humans, programs, and devices will 
frequently assume that the bytes represent ASCII values, and 
thereby characters. 

Programs receive information by "reading" from an "input file", 
and transmit information by "writing" to an "output file". 

A major purpose of ISIS-II is to implement files (called "disk 
files") on diskettes/platters. Every disk file is identified 
by a name unique on its diskette/platter, which has 2 parts: a 
filename and an optional extension. A disk file's filename is 
a sequence of from 1 to 6 ASCII characters; an extension is a 
sequence of from 1 to 3 ASCII characters. To facilitate name 
specification within command strings, these ASCII characters 
are constrained to be letters and/or digits. 

For every non-disk device supported by ISIS-II, there are one 
or more associated files, each identified by a name consisting 
of a pair of ASCII characters between colons (see Appendix D 
for a complete list) . Disk drives also have names which are 
prefixed to filenames to specify on which disk the file resides 

No file can exist on more than 1 physical device. In 
particular, a disk file must reside entirely on one 
diskette/platter . 

Three files (:BB:, :CI: and :C0:) deserve special mention: 

ISIS-II supports a virtual input/output device known as a 
"Byte Bucket" (:BB:). This device acts as an infinite sink for 
bytes when written to, and a file of zero length when read 
from. Multiple opening of ;BB: is allowed, each open returns a 
different AFTN. (See Section 3.8.1). 



ISIS-II supports a virtual teletype known as "the Console, 
which is implemented as 2 files, an input file (:CI:) and an 
output file (:C0:). These 2 files are always "open" (see 
Section 3.8.1); :CI: is always a "lined file", :C0: Is its 
associated echo file (see Section 3.2). Each of :CI: and :C0: 
is a pseudonym for some file corresponding to an actual 
physical device. After a cold start of ISIS-II (see Section 
4.1.1), :CI: and :C0: will reference either the teletype (:TI: 



n 
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and :T0:) or the video terminal (:VI: and :V0:), which will be 
called the "cold start Console"; however user programs may 
"move" the two halves of the Console from one physical device 
to another (see Section 3.8.12) 

Whenever an end of file is encountered on :CI:, then both 
:CI: and :C0: are automatically "moved" to the cold start 
Console. 

It is always from the current Console that CLI obtains its 
command lines. (See Section 3.6). 

3.2 Input Line Editing 

Programs, when opening a file for input, may optionally request 
ISIS-II to "filter" the input data through a module called line 
editor. This option caters to the frequent situation where a 
human is typing input for a program in real time at a keyboard 
console but is not restricted to such situations. 

Files read in this fashion are called "lined files." (Note 
that a file is so characterized not because of any attribute 
intrinsic to the file, but merely by its current method of 
access) . 

Every lined file has associated with it an output file, which 
is the file on which the echo is printed. This allows programs 
to ignore complications of input echoing; ISIS-II does it 
automatically. If no echo is desired, as may be the case when 
a disk file is a lined file, the associated echo file may be 
:BB: . 

ISIS-II interprets bytes in a lined file as 7-bit ASCII codes 
(the high order bit is ignored); furthermore, special 
interpretations (described below) are placed on the following 
byte values: 



VALUE 


CHARACTER 


OAH 


LP (Line Feed) 


ODH 


CR (Carriage Return) 


12H 


Control R 


18H 


Control X 


lAH 


Control Z 


IBH 


ESC (Escape) 


7FH 


Rubout 


05H 


Control E 


lOH 


Control P 



LF and ESC are defined as "break characters", with semantics 
defined below. 
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Lined files are conceptually partitioned into segments, called 
"logical lines," by the following rules: 

1. A LF is inserted following every CR, and then all LF's 
immediately following a break character are removed; 

2. A logical line is defined to be all characters between 
break characters, together with the terminating break 
character? 

3. If all logical lines comprise no more than 122 
"uncancelled" characters (by the editing transformations 
defined below) , the partitioning is complete? otherwise the 
^long" logical lines are themselves further partitioned 
into 2 segments: the left segment comprises the largest 
possible number of characters such that no proper substring 
of those characters comprise more than 121 "uncancelled" 
characters? the right segment comprises the remaining 
characters? 

4. Rule (3) is applies as many times as necessary to elim.inate 
"long" logical lines. 

A READ call (see Section 3.8.2) returns bytes from only one 
logical line at a time? thus READ'S of lined files often 
transfer fewer bytes than requested by COUNT. 

A READ system call returns no characters from a logical line 
until the line has been input in its entirety. Thus, during 
physical input, the logical line is accumulated in an internal 
buffer? no information in the buffer is transferred to the 
READing program until the termination character (normally a LF 

see Rule 1) is seen. Therefore ISIS-II has the opportunity 

to modify buffer contents conditionally on values entertaining 
the buffer. This is the mechanism of line editing, which 
permits the following manipulations: 

A CR character entering the buffer has the effect that a LF 
character is automatically appended to it (this is rule 1 
above) , and both are echoed. Thus the CR character may be used 
at a keyboard to terminate an input line. 

A LF character as the first (and therefore only) byte in a line 
has no effect (this is also rule 1 above) ? it is discarded? 
there is no echo. This permits disk files with CRLF line 
terminators to be used as lined files? the CR generates an LF, 
yielding CRLFLF, but then the 2nd LF is removed from the buffer 
and is ignored. 

A Rubout character has the effect that it cancels both itself 
and the most recent uncancelled byte in the buffer. In general 
a Rubout is echoed as the character it cancels. However, in the 
case that the console echo file is :V0: a Rubout is echoed as a 
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sequence of backspace {08H) , blank character (20H) , and a 
backspace. If there is no uncancelled character remaining in 
the buffer, the Rubout has no effect and is echoed as a Bell 
(ASCII 7) . 

A Control-X character cancels all characters in the buffer, 
including itself, thereby erasing the current input line read 
in so far. It is echoed as a •#', CR and LF. 

A Control-R echoes a CR and LF, followed by the current 
uncancelled contents of the buffer. 

A Control-Z cancels all characters in the buffer including 
itself, and causes the READ call to return immediately without 
transferring any bytes, thus simulating an end of file. The 
remainder of the logical line,' if any, may be read by a further 
READ call. This is the only way to obtain an end of file 
indication on keyboard input devices. Control-Z is echoed as a 
CR and LF. 

An ESC character is echoed as a dollar sign ('$') character. 
The function of a Control-E is described in Section 3.4. 
The function of a Control-P is described in Section 3.5. 

3.3 Operator Controlled Pause 

ISIS-II provides a pause facility for all console output 
devices (:V0:, :T0:, :C0:), to allow the operator to stop 
scrolling of output, inspect the display, and then continue 
scrolling. Two control keys are used as follows: 

1. If Control-S (X-OFF) is entered from the keyboard of the 
physical device which corresponds to the current :C0: 
device, the display stops. The display will remain stopped 
until a Control-Q (X-ON) is entered from the same device. 

2. All intervening characters entered between control-S and 
Control-Q are ignored. 

3. The above operations have no effect on any input 
operations. Control-S and Control-Q are not considered to 
be line editing characters. 

Note that stopping the display also stops the program 
generating the display, along with the rest of the system. 
Entering a Control-S will cause the program executing to pause 
at its next console output. 

Since this feature is associated with physical devices below 
the file level, a pause is controlled from the physical device 
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paired with the output device. Thus^ pauses on :V0: are 
controlled from :VI:, no matter where the console input (:CI:) 
is originating, 

3.4 Ability to Exit and Reenter Disk Console Input 

In many cases, it is useful to interrupt a SUBMIT (see Section 
3. 12; 10) job temporarily and accept input from the Cold Start 
Console and then continue the SUBMIT job. This is useful when 
a sequence of standard operations (e.g. ICE80 initialization) 
is followed by an interactive session (e.g. ICE80 debugging of 
a user program) which is then followed by another standard 
sequence (saving the modified program image, exiting) . ISIS-II 
line-edited input logic checks for a Control-E (ENQ) which 
causes an exchange of the console input from the currently 
assigned file to the cold start console. A subsequent 
Control-E will perform the converse, since the Control-E is 
interpreted as a toggle. Control-E is echoed as an up arrow 
followed by an E (tE) but is not returned in the input buffer. 

At cold start time, whenever a CONSOL call is made, and 
whenever a fatal error or interrupt 1 occurs, the alternate 
console (the console to be made active when the next Control-E 
is encountered) is set equal to the cold start console. 
Therefore, entering a Control-E from the cold start console 
when no submit job has been suspended, results in a null 
operation. 

3.5 Use Of A Quote Or Literal Character In Line-Edited Files 

There are occasions when it is necessary and desirable to 
override the line-edited input conventions and input the 
literal value of a character (cr. If, Control-R, . . .) which 
would otherwise be interpreted as a line-editing character. 
The Control-? (DLE) character is used to indicate that the 
following character is to be treated literally and to be placed 
in the input buffer. 
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3.6 Command Language 

When ISIS-II (CLI) is ready to accept a command it prompts with 
a dash character ("-") at the beginning of a new line on the 
current Console output device (:C0:). Normally, the user now 
gives a command to CLI by typing a sequence of characters, 
followed by a carriage return. This character sequence, ^ 
including the carriage return (and the automatically appended 
line: feed) is a "command line", as defined further below. In 
general, CLI reads 1 line of input from the current console 
input device (rCI:). All line editor features are available at 
command-input time (see Section 3.2) . 

CLI also performs a conversion of the command head from lower 
case into uppercase characters. Commands (i.e. programs) must 
decide for themselves whether to treat uppercase and lowercase 
characters in the command tail as being equivalent. The 
ISIS-II cusps (Section 3.12), for example, convert all 
lowercase characters in the command tail into their uppercase 
equivalents. A command line must conform to the following 
syntax: 

<command lin€> ::= ^command head> Command tair> i 

<comment lin€> 
^command head> ::= T DEBUG J^command> 
<command> ::= <pathname> 
^command tail> ::= \a sequence of or more characters, 

not including a LF or ESC] r<terminator>3 
^comment line> ::= ; £a sequence of or more characters, not 

including a LF or ESC"^ E<terminator> I 
<'terminator> ::= CR ! LF 1 ESC 

<pathname> ::= ^device> ! <fid> ! ^evice><fid> 
<device> ::= : <c><c> : 
<fid> ::= <f ilenam^ C .<extension'>3 
<filename> ::= ^a sequence of 1 to 6 <c> sj 
<extension> ::= Ja sequence of 1 to 3 <c> s] 
<C> : := A!B!C!D!E!F!G!H«IIJ!K!L!M!NIO!P!Q!R!S!T«U!V!W!X!Y!Z!aIb! 

c!d!e!f!gih!i!j!k!l!m!n!o!p!q!r!slt»ulv«w!x!ylz!0ll!2!3! 

4!5!6»7!8!9 

Examples of command lines: 

;THIS IS AN EXAMPLE 

COPY :F1:MYPR0G.HEX TO :HP: 

IDISK :F1:NEW.DSK 

• TR; 

:F1: SIMULA BROWN$L 

EDIT JIM 

DEBUG MYPROG :LPL$N 

A command line must contain 122 or fewer characters. The 
terminating LF in the command tail will normally be inserted 
automatically by the line editing mechanism (see Section 3.2) 
when it encounters the CR. 
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The DIR, ATTRIB, DELETE, and COPY system commands incorporate a 
wild card facility in the command line. The syntax of the 
wildcard pathname element is as follows: 

^wildcard pathname> ::= <device> ! ^wildcard fid>I 

<device><wildcard fid> 
^wildcard fid> ::= <wildcard filename>r .<wildcard extension> 1 
<wildcard filename ::= Sa sequence of 1 to 6 <char>s} 
<wildcard extension> ;: fa sequence of 1 to 3 <char>si 
<char> ::= <c> I * I ? *• 

1. In either filename or extension, the character '?' can be 
used as a token to match any valid non-null character. 

AB7.HEX matches ABC. HEX, ABX.HEX, . . .but not AB.HEX. 

2. The character **• is used to match all or the remainder of 
either filename or extension field. '** can be interpreted 
as filling the rest of the field with don't care tokens. 

AB*.HEX matches ABC. HEX, ABCD.HEX, AB.HEX, ... 
A*.* matches ABC. HEX, A, ... 
A*C.HEX is illegal. 

3. A device specifier, :Fx:, may be used to prefix a wildcard 
filename, but must be fully specified. (i.e. :F?: is not 
allowed) . 



A pathname normally specifies a file as follows: the device 
specifies one of the physical devices listed in Appendix D. If 
device is not specified, then the system disk (:F0:) is 
specified by default. If a disk is specified, then an fid must 
be specified. If a non-disk device is specified, than an fid 
may be specified, but has no significance. 

Comment lines can be input interspersed with command lines. A 
comment line starts with ' ; ' as its first nonblank character. 

If the command line does not conform to the above syntax, an 
error message is sent to the current console output device 
(:C0:), together with another prompt. Otherwise the command 
specifies a file which is interpreted by ISIS-II as a file in 
ISIS-II Absolute Object Module Format (see Absolute Object File 
Formats, Intel Technical Specifications, 9800183B) , which is to 
be loaded. After loading, one of two actions occurs, depending 
on debug: If DEBUG is not specified, then the DEBUG TOGGLE 
(see Section 4.3) is reset, and the program is executed. If 
DEBUG is specified, then the DEBUG TOGGLE is set, thereby 
entering debug mode, and control is transferred to the Monitor 
with the starting address of the program displayed, at which 
point the entire debugging facility of the Monitor is at the 
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user's command. There are 4 ways to leave debug mode (thereby 
resetting the DEBUG TOGGLE): (1) a user program can call EXIT 
(see Section 3.8.7), (2) a user program can call LOAD with 
RETSW=1 (see Section 3.8.8), (3) the user may press interrupt 
switch #1 while the user program is running (see Section 4.4), 
or (4) the user may execute a G8 command from the Monitor. 

If the file specified by command does not exist, or if it has 
an illegal ISIS-II Absolute Object Module Format, or if its 
load address lies within the ISIS-II memory or buffer area, an 
tV^l ^f .issued (see Section 4.3) and another prompt is given. 
If the file does not correspond to a main program, then results 
are undefined. 

By the use of RESCAN and READ ^calls (see Section 3.8), CLI 
arranges that the loaded pro^fam may read the command tail by 
normal READ calls on the current console input device (:CI-)* 
the first character read will be the first character following 
the command head. If desired the command head may also be 
examined by use of the RESCAN system call in conjunction with 
READ. 

The loaded program is free to implement its own semantics on 
the command tail. (Note: if the loaded program fails to READ 
the entire command tail, the unread portion will be flushed by 
CLI before processing the next command line.) 
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3.7 Memory Layout 



Intellec memory is logically compartmented into 7 sections by 
ISIS-II: interrupt areas, the ISIS-II area, the buffer area, a 
vacant area, the user area, and the Monitor work area. This 
logical partitioning of memory is described by the following 
diagram: 



MONITOR WORK AREA 



USER AREA 



VACANT AREA 



BUFFER AREA 



ISIS-II AREA 



USER INTERRUPTS 



ISIS-II INTERRUPTS 




320 Bytes 

.Top of Memory (TOM) 



^ ^User Org Point (UOP) 

^^ Top of Buffers (TOB) 



Buffer Org. Point (BOP) 
= 3000H 




Locations 24-63) 
(Locations (0-23) 



Relative sizes of these memory areas are constrained by the 
following equations: 

UOP greater than or equal to 3180H 

TOB greater than or equal to 3180H (varies 

dynamically) 
TOB less than or equal to UOP 
TOB less than or equal to 3980H 
TOM = 32K, 48K or 62K (less 320 bytes for 

Monitor work area) 

ISIS-II reserves interrupts through 2 for use by itself and 
the Monitor, and leaves interrupts 3 through 7 available to the 
user. 

The buffer area contains three or more I/O buffers of 128 bytes 
each (the permanent buffer is the line edited buffer for the 
Console) . Buffers are dynamically allocated and deallocated 
according to the I/O needs of the user program (see OPEN- 
CLOSE, LOAD, DELETE, RENAME, and ATTRIB, Sections 3.8.1 through 
3.8.11); allocation of buffers may cause the Buffer Area to 
grow at the expense of the Vacant Area, thus causing TOB to 
vary dynamically. 



ISIS-II ERS 
Page 20 



used to deter»i„: l^TVe^Tutl ILte^lt'll'ttTrs^. "'" "" "^ 
'* ffle ?rclosld.'''* '"^"''" '"° ''"""^ -"1 "t-he 
^* ^fI«"uit??"fhi'^M^^^* including :CI: requires one 

o thf1lil"^^irbufT '"""= "^"^^"5 t^e^rollsling 

arl rf«n,-5o^ l^^ console input file and two buffers 
are required for the console output file Thocf 
buffers are required until end-of-fiia a I 

disf^?iii?^'j?'thniiL"'irio5iroffn%i^:s"Jis^?sf'^°^^" 

program, it may be obtained bv a cfn on ^hf SL^S ^^® ^^^^ 

the Monitor (see Intellec Wo^erator 's Manu^or Tn^' ?" '" 
Series 2 Model 210 Users Guide);) Manual or Intellec 
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3.8 System Calls 

A system call is a subroutine call: the call is in the user 
program, the subroutine is within ISIS-II (KERNEL) . The 

TSTS— TT Snbi''^'i^"'»^<a Mill nee "J^e ■»»^-j9» -<4--'^«-=s« - 

-- — -- ^ — '- >- "-—--^ -se xuS yjwn ataCj^ as necessary; tnus 

the depth of the user stack is not affected by subroutine calls 

The following subsections demonstrate the various system calls 
m PL/M schemata, and define the action of the subroutines. 

H^^ i"^^^^f^® ^° assembly language user programs is given in 
Appendix B.) 

The schemata share the following conventions: 

1. Every variable in a system ^all is of type ADDRESS (never 
of type BYTE) . 

2. Errors in hardware or in user programs, or certain 
hardware- or software-imposed limitations, may prevent the 
successful completion of system calls. These situations 
are identified by "error numbers," (listed in Appendix 
C). Errors are classed as non-fatal or fatal. Fatal 
errors are handled as in Section 4.3, non-fatal errors are 
described below. 

Most system calls specify the address of a variable into 
which ISIS-II will place an error number if control returns 
to the user program. This variable is denoted by "STATUS" 
m the schemata below. If STATUS=0 on return, no error was 
encountered. 

The following terminology is used throughout Sections 3.8n; 
(a) "Non-fatal error occurs": no action was performed by 
the system call? control returns to the user program? the 
nature of the difficulty is indicated by the value of 
STATUS on return, which is an "error number." (b) "Fatal 
error issues:" a message is printed on the cold start 
Console device, and control passes to the Monitor or to 
CLI, as described in Section 4.3. 

If a hardware error or a user programming error prevents 
successful output of an error message to the cold start 
Console device, the system may hang without the normal 
error message, in which case the system must be restarted 
(see Section 4.1.1) , 



3. 



A pathname is specified by a PL/M variable which points to 
the first of a string of bytes in memory. 

This byte string must conform to the syntax of pathname as 
given in Section 3.6, but may have leading ASCII space 
characters, and must be terminated by a character which is 
neither a <c> nor • : • nor ' . ' . 



ISIS-II ERS 
Page 22 



litll%^llt lll'nstinrrnT4ti:,'° "^^ -description, a 
depending on the system clll!^ ^"°' ''^^ °'='="'^' 

and marker! associated wu"lach'?nl!' ^"^"""e«' ^^^GTH 

The LENGTH associated with a *no {<, *k« 

the file. For many input fills %,^^v,^ """"'*'^ °^ "^tes in 

as It is written. "utpuc riie typically increases 

s%&.^'i„rsi„SHr^';£i! «•"«»"- -sir- 

3.8.1 Open 

CALL 0PEN(.APTN,P1LE$P01NTER,ACCESS.ECH0APTN,. STATUS) ; 

?r^?af anTa''?iL'" Nffn'Jif l^oS f""-"- "^t-en a user 
occur until such a'connec??on fs :s?Ib?isgeJ '^^.^''S'"^^ 
such a connection is establishn^ f» . -i !^ : * ^^^^ ^^'^ which 
Two files, :Cl:, :CO:*«f al^ayf o|enf'^ '° "" ^" "°P" "^e.- 

«'lnte|ir%aL:^:iwe:n%'and°ffy fy%'-."ll' ISIS-II returns 
Pile Table Number) This v»?Lf inclusive in -ATTN" (Active 
to specify an open file (rt Jj "^^t i" future system calls 
system calls to^^^ef Jf^^-:C,5n%„l^-L? relpe'c^I^elTf '" '"""' 

Junlels'lhl'fi!^ fs'fci^ oj"^^ T"\? .""""^'''l «"- — " 
value Is returild l„-&!f 'S'ittemnt't^ S"* "S appropriate 

to identif^'^^s; al^^e,ToSrlinf^^1u^^lrin'i:l^!^"* "-^ 

sfmuft^neous^ly open^ in"a%'?^':: f '^'' '"'^ ••^°" "^^ ^^ 
of files simGltanlSisfy caulefa non^f2^??" "*" "^« """"er 
P1LE$P0INTER is the address of ?h» ?T^=^ ^*"''' '° '"='="'^- 
which satisfy the restrletLn. i?!/i''*^'*^ ' ^"^^"9 of bytes 
3.8. ^ restrictions listed under point 3 in Section 
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The ACCESS parameter has value 1, 2 or 3, (Otherwise a 
non-fatal error occurs.) 

If ACCESS=1, the file is being opened for input. The 
associated MARKER is set to 0, LENGTH is unchanged. No 
attributes (see Section 3.10) of the file are changed. If 
FILE$POINTER specifies a non-existent file, a non-fatal e'rror 
occurs. 

If ACCESS=2, the file is being opened for output. If the file 
specified is a non-existent disk file, then a disk file so 
specified is created, with all attributes (see Section 3.10) 
reset. If the file specified is an existing disk file, then 
the Format and Write-Protect attributes must be in a reset 
state (otherwise a non-fatal error occurs) . In either case the 
associated MARKER and LENGTH are both set to 0. 

If ACCESS=3, the file is being opened for update (reading 
and/or writing, which may be interleaved) . If the file already 
exists, LENGTH is unchanged; if the file does not exist, then a 
new file is created (as above) and LENGTH is set to 0. In 
either case, m_arker is set to 0. If the file specified is not 
a disk file with Format and Write-Protect attributes in a reset 
state, a non-fatal error occurs. 

If the hardware characteristics of the device being opened (see 
Appendix D) are not compatible with the access modes specified 
by ACCESS, a non-fatal error occurs. 

If the file is not to be opened as a lined file, then ECHOFTN 
must be 0? otherwise the lower byte of ECHOFTN must be the AFTN 
of a file already open for output, specifying the associated 
echo file. For example, AFTN = OFFOOH specifies the console 
output to be an echo file. Echoes will be interleaved with 
user's output to the file, if any. If a non-zero ECHOAFTN does 
not specify a file opened in write mode, a non-fatal error 
occurs. 

Opening disk files causes 2 buffers to be allocated within the 
Buffer Area (see Section 3.7). If the file is opened as a 
lined file an additional buffer is allocated to it. If the 
Buffer Area and the Vacant Area together contain insufficient 
space for such buffers, a fatal error occurs. 

If the file opened is a paper tape punch (:HP: or :TP:), then 
12 inches of leader (ASCII null characters) are punched. 

3.8.2 Read 

CALL READ ( AFTN , . BUFFER , COUNT , . ACTUAL , . STATUS ) ; 
This call transfers information from the open input or update 
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file identified bv aptm ♦-« i.u «.. 

. is set to the number of b^es tf^Jf" ^^^^ ^^^=R- ACTUAL 
incremented by the saml r.,,lt *^5fnsf erred, and MARKER is 

MARKER is updated by^e^LrL^^*'^ ^t^" " line-ediied, 
COUNT bytes win be transfffro^ t! """"er) . No more than 
no bytes were tranlferfedf "'^- " ACTUAL-O on return, then 

For all files, either COUNT or (TTmr-rr, 

be transferred, whichever Is lewef For'? ?^ ^?^f^' "^'^^ «"! 
the additional proviso than no bv^Io k ^i"*? *^^«S' "ere is 
line will be transferred? ^'^^ ^^^°"^ 'he current logical 

If ATTN does not specif v a fiT^ 

non-fatal error occurs! ^^ ^°' ^"P"^ or update, a 

ach'L%1d!"^;^1^^,''^,,^--f^if^a read Of a dis. file cannot be 
the event of hardware aif f icu'u!e%rhL%"?hrsyst;n,'" "^^ ^^" 

end-S^^ile?' End^"ofS Ts^b^s^ ^^""^^ "°^ -''^"'^ 
line-edited files and co^%r|fter"thfrfl^'K'"."* ''"^ °f 
the case of lined files and Inrm^ 5 f" °' ''^ ACTUAL = 0; in 
indicated by ACTUAL lIL than 2StoI!^^'" "'^" 0, it is 

3.8.3 Write 

CALL WRITE (APTN, .BUFFER, COUNT, .STATUS) ; 

bJ'!BSI^^R'^rt1e"|p^n"1l?e''Ja°e"nSlLd''^ \T^^ «" ^"^-^"-^-^ 
contiguous bytes are transLrrfS if=.,»^ ^^^- Exactly COUNT 
COUNT; if this causis Sll fo ; "*^^^ '^ incremented by 
I^GTH is set equaf to^KL! ^""" '''*" ^^^GTH, then 

If APTN does not soeeifv » f<i« - 

non-fatal error occurs! ^*" ^°' °"*P"t or update, a 

successful write, the svstem ^f^K ^°?^ "°*= P^'^it « 
continue «ithout'In^^%f?rnTthTfa'fl"2.i^e^•g^^?e^Sp^'r!' ' " 
3.8.4 Seek 

CALL SEEK(AFTN,MODE, .BLOCKNO, .BYTENO, .STATUS) ; 
If APTN specifies sBB- t-h<e <_ 

specify a disk file open in -T^k! "»o?£' otherwise APTN must 
UPDATE mode (access.ff in ^ht^w^'^ READ mode (access=l) , or 
the MARKER vilue"ss^iat2d"witl; "fflle."" "'^ or returns 
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BLOCKNO and BYTENO are address values which together specify a 
number, N, of bytes, by the formula N = (128* (BLOCKNO modulo 
2**15) + BYTENO) . 

MODE must have one of the values 0,1,2,3, or 4, otherwise" a 
non-fatal error occurs. 

If MODE=0(SEEK Return), then MARKER is not changed; instead, 
values are returned in BLOCKNO and BYTENO such that N=MARKER. 

If M0DE=1(SEEK Backward), then the current MARKER value is 
decremented by N; if this new value of MARKER is negative, 
MARKER is set to 0, and a non-fatal error occurs. 

If M0DE=2(SEEK Absolute), then the new MARKER value is set to 
N. If this new value of MARKER is greater than LENGTH, then 
sufficient zero-value bytes (ASCII nulls) are appended to the 
file to make LENGTH=MARKER. If insufficient disk space remains 
for this extension, a fatal error will be issued, either during 
execution of the SEEK call, or later when an attempt is made to 
WRITE into the extended area of the file (which can happen at 
any time during the life of the file on its diskette/platter) . 

If M0DE=3(SEEK Forward), then the current MARKER value is 
incremented by N. If this new value of MARKER is greater than 
LENGTH, then sufficient zero-value bytes (ASCII nulls) are 
appended to the file to make LENGTH=MARKER. If insufficient 
disk space remains for this extension, a fatal error will be 
issued, either during execution of the SEEK call, or later when 
an attempt is made to WRITE into the extended area of the file 
(which can happen at any time during the life of the file on 
its diskette/platter) . 

If M0DE=4(SEEK EOF), then the current MARKER value is set to 
LENGTH; the values of BLOCKNO and BYTENO are ignored. 

It should be observed that the editing and buffering implicit 
in the handling of lined files has the side effect that the 
current MARKER value is not always calculable by the READing 
program; thus the use of SEEK on lined files can have 
unexpected effects. 

If the file specified by AFTN is not a disk file or :BB:, then 
a non-fatal error occurs. 

Attempts to seek backward past the beginning of a file, or to 
extend a file opened for input (ACCESS=1, see Section 3.8.1) by 
seeking past the end of the file, will result in a non-fatal 
error. 
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3.8.5 Rescan 

CALL RESCAN ( AFTN , . STATUS ) ; 

™ ""^Tf ^h^^?M ^^^ READing of the lined file specified by 
^ n.u^^ ll^^ ^^ "°^ ^ ^i"«^ file, a non-fatal error 

occurs. The effect is that the MARKER associated with the fil^ 

iur'^fthe l?rst'bvt'%"^:^H' T^'" "^ '^^^' by a'^'L'conu^and 
wai i^c/ ^^Ji^ l^t ^" ^^^ logical line from which a byte 
was last transferred by READ command, if RESCAN is given 

^ISIL'S? f nne%rb!"' '' '^^ ^^5 ^^^^^^- This'le^mlts the 
kI 2« !I^ . ^ "® ^? ^®^^" ^"®^' after some or all of it has 
on^r.n.n'''"^^^ '^^^' ^ ^^^N ^^11 ^^'^ ^BB: is a null 

3.8.6 Close 

CALL CLOSE (AFTN, .STATUS) ; 

CLOSE severs the connection established by the OPEN system 
lomjiete! ^^""^"^ "* "closed" when input or output is 

"°the%Sffer%rli!*^" *" """"^ allocated for it (by OPEN) 

{Lk-? ^i^t •=^?s^<^ is a paper tape punch (.-HP: or .-TP:), 12 
inches of trailer (ASCII null characters) are punched. 

Ht^" is ^^rin'*^ '^f:,' '"= ""^ ••=°-' °'^ "« fil« specified by 
(STATUS-O) , but the action is a no-op. 

3.8.7 Exit 

CALL EXIT; 

EXI? ffi",1«^^''*2K'°' "'fl**^ ^° '^'^"'inate execution, a call to 
EXIT is used. This call causes all currently open files 

ct??^^«'s^S'"^ i^2" *=° *^ «'1°*«'' «"«' "e Comand interpreter 
i?^l\ ""? ''* 1°^^^^ fron the booting drive and started. At the 
conclusion of this operation, the DEBUG TOGGLE is in a reset 
state. The current Console definition is not changed. 

llTi^?T?f"*KL''* ^^^^^^ .'f^5: *'^^ '**""= ^'^"^ "oes not contain 
isis.CLl) then control will be passed to the MONITOR. 
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3.8.8 Load 

CALL LOAD (FILE$POINTER, BIAS, RETSW, .ENTRY, .STATUS) ? 

This call requests ISIS-II to load a portion of RAM as 
specified by the contents of an ISIS-II Absolute Object Format 
file specified by FILE$POINTER. 

First, ISIS-II rearranges buffers currently allocated in order 
to make TOB (see Section 3.7) as small as possible. 

Then the program (or data) is loaded into memory at addresses 
calculated by addition (modulo 64K) of BIAS to the load address 
specified by the input file. FILE$POINTER is the address of 
the first of a string of bytes which satisfy the restrictions 
listed under point 3 in Section 3.8. If FILE$POINTER does not 
correctly specify a file in ISIS-II Absolute Object Format, or 
if an attempt to load memory (other than interrupt areas 3-7) 
below TOB (see Section 3.7) is made, then a fatal error will be 
issued. 

RETSW (Return Switch) must have one of 3 values; 0, 1, or 2; 
otherwise a non-fatal error occurs. 

RETSW=0 will cause control to return to the calling program 
after the memory loading has been accomplished. ENTRY will be 
set equal to the loaded program's entry point, as given in the 
input file. The new UOP is the minimum of the old UOP and the 
lowest address loaded (exclusive of locations 24-63) . Certain 
error conditions (internal error in object file or attempt to 
load RAM below TOB) will cause a fatal error to be issued. 

RETSW=1 will cause control to tranfer to the newly loaded 
program at its start address entry point. If the loaded 
program is not a main program, then results are undefined. 

RETSW=2 will cause control to transfer to the Monitor after 
loading with the PC equal to the start address. 

The LOAD call can also affect the DEBUG TOGGLE (see Section 
4.3). The toggle is unchanged, reset or set as RETSW is 0,1 or 
2, respectively. In the event of an error, the toggle is 
unchanged. 

ISIS-II will not permit loading into the "ISIS-II Area" or the 
"Buffer Area" (see Section 3.7, Memory Layout); however buffers 
in current use will be relocated as necessary to make the 
buffer area as small as possible. 

Execution of this system call uses 2 transitory buffers. If 
the Buffer Area and the Vacant Area (see Section 3.7) together 
contain insufficient space for such buffers, a fatal error will 
be issued. 
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3.8.9 Delete 

CALL DELETE (FILE$POINTER,. STATUS); 
This call removes the dicir ^^i^ 

the^|isk. Disk spaci aUocated tl^lt^^t^.^^ FILE$POINTER from 
F1LE$P0INTER Specifies a nl"|xis?ent%ft^^ '^ released, if " 
file IS not a disk fiio "°" e^fistent file, or if the soecifio^ 

attribute set (see leotionS'fo") ''or''f ''"7^^°'=^" or p|?:f^'^"'' 
non-fatal error occurs, if tho^^-i? already open, a 
serving as :CI: or "co , then tt ifn'f -^k ^"* ^^ currently 
and a non-fatal error occur I? "Either closed nor deleted. 

Execution of this «ve#.of« ^-.n ^ 

th. Buffet »r,;"„rsrvnJi;°?" 2«""«iioty buff„,. t, 

3.8.10 Rename 

CALL «HNAME(0LDFILE5P0INTEH,»EKFILB5P0INTEK, .STAn,S) ; 
«ust iSig^^ltls'on T.\tL'^it', "'^- ^°'' "LE5P0INTER.S 

dLkJ%^irN|P|=if||^j«| not both disk f ii« on the same 
or If OLDSPILEPOINTER specifies^ n^! an already existing file, 
whose Write-Protect or Pnrmfi .! ^on-existent file or a file 
set, then a non:|fta? eLoroccSrs!""'" '"" '^<="'»" 3.?of' ll 

thrBufler°lrea'lnrthrVacant"fr' 2 transitory buffers, if 

contain Insufficient s^cefor sulh iT, ^*="°2 '•" '"^^ther 
be issued. *^^* "^o"^ such buffers, a fatal error win 

3.8.11 Attrlb 

CALL ATTRIB(PILE$POINTER,SWID,VALDE, .STATDS) ; 

SectiSn'".l*Jf^3%oc!ated"wi?h'^H' **S'r" -"'i-'-tes (see 
FILESPointer! iI fhl'lpecified life'l/i'* -Pacified by 
file, a non-fatal error occuJl! "on-existent disk 

?else^'''^lt%^?ll""r'ror'°"' «'"^' "-« "« value 0, 1 2 or 3 
system, „rUe!pr1tliror°the"i;J?'^\'?r"^«^ "-^"vilbL 
this attribute is rese? or Lt « L'""']''"'*' "respectively; 
or 1, respectively. **^ '^ ^«" ""^^er bit of value is a 
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Execution of this system call uses 2 transitory buffers. If 
the Buffer Area and the Vacant Area (see Section 3.7) together 
contain insufficient space for such buffers, a fatal error will 
be issued. 



3.8.12 Console 

CALL CONSOL(CI$FILE$POINTER,CO$FILE$POINTER, .STATUS) ; 

This call allows independent redefinition of the 2 halves of 
the virtual Console device. The physical file corresponding to 
the current Console input (output) device is closed, and the 
file specified by CI$FILE$POINTER (CO$FILE$POINTER) is opened 
as the new Console input (output) device. If this file cannot 
be opened for input (output) , for any reason, a fatal error 
will be issued. 

If CI $FILE$ POINTER (CO$FILE$POINTER) specifies the logical 
device :CI: (:C0:), then there is no effect. 

3.8.13 Error 

CALL ERROR ( STATUS ) ? 

This call allows a user program to cause an error message to be 
printed on the cold start Console (see Section 4.1.1) in the 
standard system format (see Section 4.3). 

The low-order 8 bits of STATUS specify the value of an error 
number to be printed in the error message. 

Authors of user programs are advised to use error numbers in 
conformance with Appendix C. 

3.8.14 Whocon 

CALL WHOCON (N, .BUFFER) ; 

This call allows determination of what physical device is now 
serving as the current Console input or output device. 

BUFFER must be at least 15 bytes long; into it will be placed 
the ASCII representation of the pathname, end-delimited by an 
ASCII space, of the device now serving as the input or output 
Console device, depending on whether the least significant bit 
of N is a 1 or a 0, respectively. No errors are reported. 
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3.8.15 Spath 

CALL SPATH (FILE$POINTER,. ARRAY,. STATUS); 

regardfig ?he°?fle'LIc[ned'bv'^^" '^^ '°^^"^ information 
FILE$POINTER is plinting! ^ '^'^ ^^""^ *=° "''i'=h 

?or,ni?f°"""'°" '" "'""^-^ ^" « i2 byte ARRAY in the following 

ARRAY (0) = Device number 
ARRAYU) - ARRAY (6) = Filename 

Sy lO.'.T*^ (9) - Filename extension 
ARRAY (10} s Device Type 

ARRAYdl) « Drive Type .* 
The logical entities have the following meaning; 

ttrtl ?S?l^^s^^"^ ''^'^ corresponli^l UrT^l^Vrlt- .elt'clt 

0, /* DISK DRIVE */ 
Ir /* DISK DRIVE 1 ♦/ 
2f /* DISK DRIVE 2 */ 
3r /* DISK DRIVE 3 ♦/ 

4, /* DISK DRIVE 4 */ 

5, /* DISK DRIVE 5 ♦/ 
S, /* TELETYPE INPUT */ 

7, /* TELETYPE OUTPUT */ 

8, /* CRT INPUT */ 

9, /* CRT OUTPUT */ 

10, /* USER CONSOLE INPUT */ 

11 r /♦ USER CONSOLE OUTPUT */ 

12, /* TELETYPE PAPER TAPE READER */ 

ii' '^* Mc3« ^^^^° ^^^^^ TAPE READER ♦/ 

14, /* USER READER 1 */ ^ 

15, /* USER READER 2 */ 

^7' /* nfJ:!'^!^ ^^^^^ '^APE PUNCH (TELETYPE) */ 

17, /* HIGH SPEED PAPER TAPE PUNCH */ ^ 

18, /* USER PUNCH 1 */ 
19 r /* USER PUNCH 2 ♦/ 

20, /* LINE PRINTER */ 

21, /* USER LIST 1 */ 

II: /• SoL^ Slu4**r^°°° INPUT/ODTPOT DEVICE) V 

24, /* CONSOLE OUTPUT */ 

25, /♦ DISK DRIVE 6 */ 

26, /* DISK DRIVE 7 */ 

27, /* DISK DRIVE 8 */ 

28, /* DISK DRIVE 9 */ 
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Filename is the ISIS-II filename. 

Filename Extension is the ISIS-II filename extension. 

Device Type is a field which defines the type of peripheral 
to which the file is associated. The following types. (and 
corresponding Device Type value) have been defined: 

Sequential Input = 
Sequential Output « 1 
Sequential Input/Output = 2 
Random Input/Output = 3 

Drive Type is a field which is meaningful only if Device 
Type =3. In this case the Drive Type semantic is as 
follows: 

Controller not Present = 
Two boards double density = 1 
Two boards single density = 2 
Integrated single density = 3 
5440 type hard disk - 4 

3.9 Disk Format 

All floppy disks contain 77 tracks which are divided into 
sectors of 128 bytes each. A single density disk has 26 
sectors per track; a double density disk has 52 sectors per 
track. 

All hard disk platters contain a minimum of 800 tracks (=400 
tracks per surface) with 36 sectors per track; each sector 
contains 128 bytes. The ISIS-II file structure addressing 
mechanism is predicated upon track and sector variables defined 
as byte variables. Thus ISIS-II must perform a mapping of the 
800 tracks, 36 sectors/track into a logical representation of 
200 tracks, 144 sectors/track. 

ISIS-II related files (i.e. not counting ASM80, LIB, LINK, 
LOCATE, PLM80.LIB, FPAL.LIB) occupy approximately 800 sectors 
on a system disk and 100 sectors on a non-system disk. 

In the previous versions of ISIS-II information pertaining to 
the soft sector format of the tracks on the diskette was 
carried in the data area of the ISIS. LAB file. The FORMAT cusp 
would read the information contained within ISIS. LAB on the 
diskette mounted on drive and format the new diskette 
accordingly. This is no longer possible since different 
densities require different interleave factors c The FOPJ^T and 
IDISK cusps each contain a table with the appropriate 
interleave factors for each diskette/platter density, and will 
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earlier releasMof the'^tem ^Itltt^ ??'''• ""P^ibility with 
to OEM customers). ^ (especially important in jregards 

3.10 Directory Structure 

alscriL%'%\%nu:s^lurre"n?irre%f^"''^ '^^^^"°^^ ^^'^^ 

ti±es currently residing on the diskette/platter. 

A diskette directory can accomodate 200 files whil*» « r^i.*-^ 

d sket?e^o?^ttr"°"°'"'^ ''' ''^^^' 0' a St^m ' ' ^'"""^ 
r^^^^^^^/P^^^ter approximately 20 files are reserved for 

diskettP/nia*.*.!^ >i^-i 5>ysTEM.LIB). On a nonsystem 

attribute, the -Format- attribut^.'and the%ys?em- 'attribute. 

o«™^!„r^''^''"-*^ ?'y ^^ set and reset by use of the ATTRib 
comn,^nd (see Section 3.12.4) or ATTRIB calf (see slct"n 

The Format attribute is set for 6 soecial t^tq-tt ^7i e^^or. 
ISIS.CLI), and should not be changed by the user. 

intfLri'!! *"!?* "System- attribute set are assumed to be an 
accordfnalv ?« "^ ",""" ^y"^"' «"^ «« handled 
seUcted^i formatT^v,? ^°Tl operation with the S switch 
fTiI. „K,-_v ^?l^*^ * system disk? during this process all 

attrfh^^i*" "^'^^ 5" •=•'* s^""^" disk and have the Ivltem 
attribute are copied to th« «->rn4><. j.--i- mL syscem 
cautioned aaainst-fh» ?„^7! target disk. The user should be 

since it may result in «nnh^!fi""""^ "" ?^ s"^*' attribute 
functions ?Llh as FoSmJtK ^" e«<="tion time for certain 
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3.11 I/O Driver Specifications 

In addition to disks, the devices supported by ISIS-II are all 

The drivers for all devices (except disks) are contained in the 
MONITOR ROM provided with the Intellec and their definitive 
description appears elsewhere (see Intellec MDS Operator's 
Manual or Intellec Series 2 Model 210 User's Guide). 

CAUTION: ISIS-II uses the Monitor's lOSET routine to select 
non-disk devices? therefore ISIS-II will interfere with the 
user's attempts to select devices by use of the Monitor's 
ASSIGN command. Furthermore, user programs which call the 
Monitor I/O routines directly will possibly cause such I/O to 
be interleaved with ISIS-II I/O. 

The remainder of Section 3.11" is for information only; in the 
event of conflict with the above 2 manual references, the 
references are definitive. 

The hardware does not allow software to determine if a device 
is physically present. Thus, for example, output directed to 
the line printer will be lost if no line printer is on the 
system. 

3.11.1 Teletype I/O Driver 

ISIS-II supports communication with a teletype by treating it 
as 2 separate devices, an input device (:TI:), and an output 
device (:T0:). These 2 devices define logical I/O files which 
are distinct, although :T0: may be used as the echo device for 
:TI: when :TI: is accessed as a lined file. 

ISIS-II uses the Monitor I/O system to access the teletype. 
This I/O is unbuffered; thus the teletype is unresponsive to 
keyboard typing except when a user program is requesting input 
via a READ command. 



3.11.2 Video Terminal I/O Drivers 

The ISIS-II video terminal I/O drivers (:VI: and :V0:), are 
identical to the teletype drivers (:TI: and :T0:) except for a 
higher transmission speed. 

3.11.3 Paper Tape Punch I/O Drivers 

ISIS-II supports 2 separate punch devices, a low speed device 
located on the teletype (:TP:), and a separate high speed punch 
peripheral (:HP:) . 
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VAlcT?'nn?r^h"''^ t^ °?^"^^ ^°^ ^^^^^^' ^2 inches Of leader 
(ASCII null characters) are produced by ISIS-II. When either 

3.11.3.1 Low Speed Punch 

The ISIS-II low speed punch, :TP:, is integrated with the 
teletype and has no automatic on/off control. Therefore th^ 

it"fteriris'ciLff "p'''!hP""'='' "'^'^ '' '^ openllf and stop 
it arter it is closed. Purtherniore, since the teletvne orin*- 

device, :T0!, is actually the same hardware al :TP?, the user 
should insure, through a combination of program logic and 
o^lputs!"' P'^""^""' t^^^t these 2 devices don't inter?efve 

3.11.3.2 High Speed Punch 

Monitofl/nys^em!' '"''" ^''''='' " <^^^'^" "-"^h the 

3.11.4 Paper Tape Reader I/O Drivers 

ISIS-II supports 2 paper tape reader devices, a low speed 
fn«S%»°S"*'' ""^ ^^^ teletype (:TR:), and a separate high 
speed reader peripheral (:HR:). The 2 readers are identical in 
operation; the major difference lies in the sLed of the 
f^i»^^^ End-of-file on both devices is ind!«ted by absence 
?L u«r rf VP"^^*' °f 250 milliseconds. When this occurs? 
TS?Q ??/''*»''*! -^ standard-end-of-file indication from 



3.11.5 Line Printer I/O Driver 

is^oofnJ^^r'^^L^^'"^ printer (:LP:). When the line printer 
IS opened or closed, a page eject is not generated. 

3.11.6 User-Defined Devices 

^f J?Z^^ t^^Ti^^ "^®^^ ^° implement their own I/O drivers, as 
llis ?T ll 11^ M^^itor. These devices are referenced f^ 
ISIS-II by the device names listed in Appendix D. 
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3.11.7 Disk Driver 

The ISIS-II Disk Driver will support four types of disk 
controllers. The types of controllers supported will be: two 
board single density? two board double density? integrated 
single density, and 5440 hard disk controller. The 
relationships among I/O ports and present disk controllers is 
contained in a table called DKCFTB which is updated at the time 
of system activation. (see Section 3.13). 
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3.12 System Commands 



Sectional ^ii ^^"^K- °^ ^^r^^-^s has been given above (see 
semantics of these commands is given below Wh^^lLn 1 • , 

followed by a cha?acter:h?ch"l neithe?T<c>'ior ' • - nor' '^ 
purpose?^ " ""^ ''^"' ^^^^^ characters mafbe used-for°this 

If invalid pathnames or switches arp Hofoo*-**^ ,•« -^ 
n'^l^fa?^! iror^c^^?!!"^-^"''^"- ""-' --t?"^n"a 

??!err;ixi^?!-!gLr^Lib^e^rp^o^ma^?.'^^x":!i;%^^°^^^^"^ 

^^^o^f ".^''^ corresponding filenames as coLands (more 
Ifogrfm!'"^' " <"'™""'^ *'^^<^>'=' ^^ invoke'?hl «rre%ponding 

The command language may be tailored to a user's namina 

DlLE^rcouf^^j: ""="^"9 'he system command fues. For%xample 
DELETE could be renamed to DEL or CAREFL. example, 
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3,12,1 DIR Command 



user 



The DIR (Directory) command provides the means whereby the 
can ascertain what files are on a disk directory. Tho s"-^a- 
for the Directory Command is: -- - -j, ...^ s^..w^^ 

^command line> s= t DEBUG 1 DIR E command tail 1 

^command tail> ::= ^parameter list> 

<parameter list> ::= <parameter list><'parameter> ! <rparameter> 

<parameter> ::= FOR ^wildcard pathname> ! 

TO <pathname> I 

^switch list'^ 
<switch list> ::= <switch list> <switch> I <switch> 
<switch> ::= 0!112!3!4!516 !7l8l9lIiFIP«OiTlZ 

•fh'is command causes a list (in ASCII) of the filenames in the 
specified disk directory to be output. If the listing device 
IS not specified the output will be to :C0:, else it will go to 
the device, or file, specified in the pathname following the TO 
keyword. Each entry in the list contains (a) the filename and 
extension, (b) the number of bytes in the file, (c) the number 
?^x^^f^ sectors allocated for representation of the file, and • 
(d) which attributes are set for the file. 

The last line of the list will display a count of all sectors 
used on the diskette/platter as a fraction of the number of 
total available sectors. Normally, this list does not include 
files^whose "Invisible" attribute in the directory is set. If 
an I (Invisible) switch is given, then the listing will 
include such files. If an "F" (Fast) switch is given, then the 
number of bytes, number of sectors, and set attributes are not 
given m the output, yielding a "faster" listing. 

If the "Z" switch is specified, the only information displayed 
will be a count of all sectors used on the diskette/platter as 
a fraction of the number of total available sectors. 

The "0" (One) and "T" (Two) switches specify whether the 
display of the directory is to be in a single (one) column 
format or double (two) column format, respectively. If the 
directory device corresponds to a floppy diskette, the default 
IS single column. If it corresponds to a hard disk platter, 
the default is double column. 

If a "P" (Pause) switch is given, then the system will pause 
and output the message 

LOAD SOURCE DISK, THEN TYPE (CR) 

The user can then load the disk for which a directory listing 
is required, type carriage return, and the directory contents 
of that disk will be output to the designated device. Upon 
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conclusion, the message 

LOAD SYSTEM DISK, THEN TYPE (CR) 
will be output, 

bein^ present on the d?sk fven i? the"??/'i^ ^^^' "* ^^^^ ^= 
attribute set to true and thl r l ^^ u^^^® ''^^ '=''« invisible 
DIR conrniand. "^ "* ^ ^""'==*' "« not specified in the 




umber 
more, 



the rightmost numeric switch founflVn,"^^^-. ^^^^' ^ '<'° 
override any previoSI Ines! Only o^e "TO^^hn ^'^^ ''^^^ 
niay appear in a command line. Only one^^RinSf^°°"^J^"" 
may appear in a command line. rOR<wildcard pathname> 
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3.12.2 RENAME Command 

The RENAME command provides the facility whereby the user can 
change the filename (and/or extension) of a disk file. The 
syntax is: 

<command line> ::= E DEBUG 1 RENAME <command tail^ 
<command tail> ::= <oldfile> TO <newfile> 
<oldfile> ::= <pathname'> 
<newfile> ::= <pathname'^ 

The two pathnames 's must specify the same disk. The file 
specified by <oldfile> has its filename and/or extension 
changed, so that it is now specified by ^newfile>. If <newfile> 
specifies an already existing file, the message 

:FX: FILE. EXT ALREADY EXISTS, DELETE? 

is output on the current Console device (:C0:), and one logical 
line is input from the current Console device (:CI:). 

If this line begins with the ASCII character "Y" or "y", then 
the RENAME command continues, otherwise no action is performed 
and control returns to CLI. 

If the files specified are not both disk files on the same disk 
or if oldfile specifies a non-existent file or a file whose 
Write-Protect or Format attribut is set, then an error message 
is issued and control returns to CLI. 
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3.12.3 COPY Command 



command cln be Ssed with tiLtr =?"=?tenate files. The COPY 
configuration! The svntax of ^k ^"^^^ '^i^^°'' ""^ti-disks 
specify a f ilB ^«r^.^-fr of. the command allows the user to 
speciry a file copying operation using the wildcar,! fa^Ti-,-k, 
A file renaming capability usino wTi^%.,!^L ■ f facility. 
The -syntax is: t-sDiiicy using wild cards is also provided. 

teommand tail> ::= <source> TO <destination> r<switch list>T 

•/q^*^. ,•«,*.• V > . • <Pathname> 
<destinatior^ ::= <wildcard pathname 

<switch list> ::= <switch lis't> <switch> | <switcH> 
<switch> ::= UISlNIPiQiciB ^^"^^^^^ 

3.12.3.1 Description of Major Functions Performed 
A. Copy with wildcard facility 

The COPY command allows the user to specify a aroun «f 
files to be copied by using the wildcard construct (A 

COPY :F1:*.BAZ TO :F3: 
is identical to: 

COPY :F1:*.BAZ TO F3:*.BAZ 
This is included for the user's convenience. 

The second choice the user has for specifying his destin;.M-nn 

w ilcard n.;^r V'^^^f^ """^^ ^^^^ ^*^^ s^me'mask flthe source 
wildcard name. Having 'the same mask' is defined as fonow^. 
for every position in the source wildcard nime which llnltinl 
nLl'J^t ^°"«?P°"di«g position in the des?Tnation wnScarS 
name must contain the same ♦ token; for eviry posiMon in fh. 
destination wildcard name which confAinc I •> P^^^t^°" ^^ the 

******.*** for this purposef. "" ^^ thought as 
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Also, every position m the source wildcard name that does not 
contain a wildcard token must have a corresponding non-wildcard 
toKen m the destination wildcard name. Therefore, 

COPY :F2:F??3*.* TO :F4:A??5*.* 
is valid, while 

COPY :F2:SK?LL TO :F4 .-SKILL 
is not valid. 

The wildcard facility has a default scope which covers all 
non-format files. Accordingly, 

COPY :F2:*.* TO :F1: 

will copy all non-format files from the disk mounted on drive 2 
to the disk mounted on drive 1. There are two switchs (S and 
N) Which may be used to modify the scope of wildcards The S 
switch restricts the scope of the wildcards to system'files 
(with the exclusion of ISIS. BIN and ISIS.CLI which are also 
format files and therefore already expected to be on the disk) , 
while the N switch restricts the scope of the wildcards to 
non-format and non-system files. 

As files are copied the attributes are all set to false in the 
Qestmation file* The C (copy attributes switchl IF 
specified, will insure that the destination file, 'or files, 
will have the same attributes set which were set in the 
corresponding source file. 

As each file is copied the message 

COPIED source name TO destination name 
will be output to the :C0: device. 

If user wants to reserve tf^e right to decide on a file by file 
basis whether a file is to be copied, the Q switch affords him 
such facility. The Q (query) switch will cause COPY to display 
the message • ^ ^ 

COPY <source name> TO ^destination name>? 

and expect a 'Y' (or 'y') for a positive response or anything 
else for a negative response. Only if a positive response is 
given will the file be copied, else COPY will continue its 
normal process. 
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If a destination file already exists on the destination disk, 
tne message 

:FX:FILE.EXT ALREADY EXISTS, DELETE? 

is output on the current Console device (:C0:), and one logical 
line IS input frora the current Console device (:CI:). If \his 
line begins with the ASCII character "Y* or "y", then the COPY 
command continues, otherwise no action is performed and 
processing of the next file continues. 

A U (Update) switch, if present in the command line, will cause 
suppression of the above warning message and cause a copy over 
the file named newfile . In this case, the new file will be 
?hr?f«o!'K''^^^!u ™°^^ i^?^^S? r 3, see Section 3.8.1), and thus 
delrelsid "^"^ ^^ already exists, will not be 

The switch B (Brief) is used to achieve the same effect as the 
U switch with the difference that the old destination file is 
deleted and a new file, with the same name, is created, 
containing the exact copy of the source file. 

The COPY command allows the user to copy one file on a disk to 
a file on another disk using just one disk drive. To execute 
this function the user specifies the P (Pause) switch. When 
Si^ switch IS specified the following message is output to the 
:C0; device f ^.w 

LOAD SOURCE DISK, THEN TYPE (CR) 

The user must mount the source disk on the disk drive specified 
by the source file pathname. When it is necessary to switch 
disks, the message 

LOAD OUTPUT DISK, THEN TYPE (CR) 

is output. As each file is copied a message 

COPIED source name TO destination name 

will be output to the :C0: device. These messages are repeated 
until all the files are transferred. At that point the message 

LOAD SYSTEM DISK, THEN TYPE (CR) 

will be output to the :C0: device, and when this is done 
control will pass to ISIS-II. This switch permits the user of 
a single drive system to back up files from one disk to another. 

If the source name is equal to the destination name the P 
switch IS implied and a single drive copy will be executed. 



ISIS-II ERS 
Page 43 



B. Renaming Files While Copying 

The COPY command permits the user to rename the file or group 
of files being copied with the following syntactical rule 
covering the use of wildcard tokens: if a wildcard token is 
used in the source file name it must also be used in the *same 
position in the destination file name. Both explicitly named 
portions of the source and destination file names must have the 
same length. 

COPY :P2:F00?? TO :F1:FXX?? 
is allowed, while 

COPY :F2:F00* TO :F1:FXX? 
and 

COPY :F2:F00? TO :F1:F??X 
are not. 

C. File Concatenation 

The COPY command allows the user to concatenate files together 
and create a new file. 

This facility entails certain restrictions. The destination 
filename must not be the same as any of the filenames to be 
concatenated. Also, none of the source files, or the 
destination file can contain wildcard tokens. 

The concatenation facility of COPY has its own operator, the 
',*. If there is a ',• in the command line, COPY will 
automatically assume that there is to be concatenation. The 
error checking for concatenate will be done before any of the 
disk operations. 

Example : 

COPY A,B,C TO D 

will result in the concatenation of files A, B, C into one file 
called D. As each file is concatenated to file D, the message 

APPENDED source filename TO destination filename 
will displayed on :C0:. 
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3. 12 ,4 ATTRIB Command 



This command allows the user to examine, set, or reset 
attributes of a disk file. The syntax is: 



<command line'> 
<command tail> 
<switch list> : 



:« E DEBUG 1 ATTRIB <command tail> 
:= <wildcard pathname^ L <switch list>l 
= <switch listv <switch element> » 
<switch element> 
<switch element> ::= WO I Wl ! 10 ! II » SO I SI ! FO ! Fl • Q 



Wl sets the write protect attribute; 

WO resets it. 

II sets the invisible attribute; 

10 resets it. 

SI sets the system attribute; 

SO resets it. 

Fl sets the format attribute; 

FO resets it. 

If the Q (query) switch is entered, ATTRIB will display the 
message 

:FX:FILE.EXT, MODIFY ATTRIBUTES? 

% 
on :C0: and expects a response on :CI:. A response of 'Y* or 
•y' will cause ATTRIB to modify the attributes of the file in 
question. The filename along with the attributes will be 
displayed on the :C0: device. Any other response causes ATTRIB 
to leave the file's attributes unmodified and continue. 

If pathname does not specify a disk file, or specifies a 
non-existent disk file, an error message will be issued. 

If<switch list> specif ies different values for the same 
attribute, the value rightmost in the command line takes 
precedence. 

If <switch list> is not specified, then the filename will be 
displayed along with those attributes which are set. This 
allows the user to determine the present attributes of a file. 
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3 •12* 5 DELETE Conanand 

The DELETE Command provides the facility to remove files from a 
diskr thereby freeing disk space for allocation to other 

^ ^ 1 ^ e 'nVs <* ^ « »i* ♦• a ^r 1 o • 

^command line> ::= t DEBUG 1 DELETE ^command tail^ 
<command tail> ::= affile spec list> L switch 1 
<file spec list) ::= <file spec list> , <file spec> ! 

^file spec> 
<file spec> ::= <'wildcard pathname> t Q 1 
<switch> ::= P 

If a pathname specifies a device other than disk, or if it 
specifies non-existent disk file or a file whose Write-Protect 
or Format attribute is set, th«n the file is not deleted and an 
informative comment is printed; processing of the 
file spec list continues. 

The Q (query) switch causes DELETE to display the message 

:FX: FILE. EXT, DELETE? 

and expects a 'Y* or 'y* for a positive response and anything 
else for a negative response. 

The P (pause) switch allows deleting a file on another disk 
while using just one drive. When this switch is specified the 
following message is output to the :C0: device 

LOAD SOURCE DISK, THEN TYPE (CR) 

The user must load the disk containing the file(s) to be 
deleted and then type a carriage return. As each file is 
deleted, the message 

:FX: FILE. EXT, DELETED 

will be output to the console. When done, the following 
message will be output to the :C0: device 

LOAD SYSTEM DISK, THEN TYPE (CR) 
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3.12.6 FORMAT Conunand 

The FORMAT command allows the user to format a disk en ^-k.^ •*. 
may be used by ISIS-II, The syntax is: ' ^"^ ^^^^ '^ 

^a?Se? devi?.> ''' < target device> <fid> E <switch list>r 
^.target device> ::= :F0: ! :F1: i :F2: ! :F3: ! :F4: • 

<fid> ::= <filename>r .<extension>l ' 

<switch list> ::= <switch list><fewitch> ! <switch^ 
<switch> ::= A i S I K 1 FROM <integer> ^'''^^^^ 

<Lnteger> ::= 1 1 . 2 l 3 . 4 • 5 • 6 1 7 l 8 I 9 

« 

«of^'^=f!!*"°''2^!'' °" ^^^ ^^'^^^ <3«^i<=e is formatted in a 
soft-sectored format; four necessary files (ISIS LAB ?«?t<! nro 

the c^;nff'"?-''°'."^ "^i"^" °" i^ The L^'given'?n ' 
the command line is written in ISIS. LAB. given in 

dfsk''whf.hT**"'lK^"'''=*' ^^ present, all files on the source 

tLiV^^J^K^i switch is present, then all files along with 
their attributes on the source disk are copied to the tara^t 
disk, thus building a duplicate disk. ""^P^^" ^° ^^® ^^^S^t 



ufiS%nterieave'L^^^ '^'^^' ^'^^ ^^^^ ^^ initialized 

^n TD«fl? K ! factors which are optimized for operation on 
an IPB85-based system. The defauii- ,• ^ v «„,- 4.-,u ^ 

Note: The K switch should not be mentioned in any 
fhf"1'«ot''i°" intended for the outside user until 
the IPB85-based system is released. 

Sr?^!^?"/'"^!^!''^.^"^ '='='' •^I'^s the user to specify the disk 
taien ?? n«^S^n«''5-'^*^"^'^^ initialization files will be 

message followed by a valid integer (0-9), the 

DNRECCXatlZED SWITCH 

^ii^,.-*J'*^^'^*^ °" '"* "=°= device. If the PROM ^integer> 
device corr.sponds to the target device, the message 

CANNOT FORMAT FROM TARGET DRIVE 

Will be displayed on the :C0: device. 
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The FROM 4i'^te9er> device should correspond to a system disk. 
If it does not and if the "S" or "A" switch is specified, the 
effect is to duplicate the ability to backup a nonsystem disk 
without having to use the "DEBUG FORMAT label A" syntax of 
ISIS-II V2.2D. 

If no disk is mounted in the target drive, an error message is 
issued and ISIS.CLI is reloaded. 

This command cannot be used directly on a single drive system. 
In such systems IDISK should be used instead. 
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3.12.7 HEXOBJ Command 



This cusp converts hexadeeiTnai fn^^ • ^ 

absolute subset of the Obiect M^nf i"^° ^ corresponding 

syntax is as follows: ^ ""^^ Formats. HEXOBJ command 

SZand tarn 1 1' f.^^^?^^ «?^OBJ <command tail> 
t:7ut%ll^'].^%tl^^^^^^ ^0 ^output file>I^tart optiorM 

•<output file> ::= <pathnam^ 
<start optiori> :.-= START (<^ddr>) 

HEXOBJ uses the name of the om-nm- f,-i« «• 

the module name of the outpu? module lTC?aLM'-"''°"; '°' 

instruction to be executpH^ i« i-k* *u •. i" tirst 

address can be speliaed bv rh«v!^*''-°^;'*^.°'=^*"='= "'°''"ie- The 

binary number fI?!owed by ^ ?etler ^h'^d^'o'^*''^?:^^; °='^^' °' 

respectively) indicating the basl ?f ^A ? ?^ °'-^' 

D is assumed, if STARTfa^Sri f •: 1° ^e*ter is specified, 

is taken fro.; the end-offfiil Jlcord'ol'^in"^ starting address 

file, which is determined by thlEND afsembiv^r"^^'"'^^ ^°"'^^ 
statement or is det(»rm,-r.«.^ k., I;^ *•':? assembly language 

starting addrels!s specified in%nv'^of'=?:?P''r * " "° 
assumed; address zerf flin the ilis-?f ar«^^r -f?"' "" ^ = 
error on any attempt to load the converted fife "''' """ " 



3.12.8 OBJHEX Command 
OBJHEX 



Ob ^ct ModuleX:atl\rhelfl' the absolute subset of the 
follows: *^°™ats to hexadecimal. OBJHEX syntax is as 



<coZand tan^ '-' 5-°^^"° ^ °^'^™^ <command tail> 
f^ti^'\,l':^iS^A''^> -° <-tput file> 
<output file^ ...» <pathname> 



3.12.9 BINOTJ Command 

BINOBJ is a cusp, which converts ist«! \n n t ■> c ^, 

to the absolute subset of the Obiect MoioTM^"5^°^^ ^°"''^ 
syntax is as follows: OD^ect Module Formats. BINOBJ 

<input file> :::-<pa1S^Smer''' TO ^output file> 
<output file> ::= ^pathname> 
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3*12,10 SUBMIT Command 

SUBMIT permits non-interactive execution of an ISIS-II command 
sequence. The term "command sequence" is defined to be a file 
consisting of an integral number of ISIS-II command lines. 
Each command line may be followed by an integral number of data 
lines, as required by the program invoked by the command -line. 

By making use of the ISIS-II system calls CONSOL and WHOCON, 
SUBMIT alters the system console input device {:CI:) to accept 
input from a user defined disk file containing the command 
sequence, returning to the previous console device when input 
is exhausted. SUBMIT accepts as input a command sequence 
definition file, consisting of a sequence of commands to 
ISIS-II cusps (possibly with formal parameters) , and a list of 
actual parameters. 

A command sequence invocation is somewhat analogous to a 
procedure Call-Execute-Return sequence. SUBMIT "calls" the 
user defined command sequence after saving the state of the 
current command sequence, "passing" parameters as required. 

ISIS-II then executes the command sequence. SUBMIT is invoked 
again at the end of the command sequence to return (restore) to 
the point of call in the previous command sequence. 

SUBMIT command sequences may be nested to any level. 

3.12.10.1 Description of All Major Functions Performed 

A. Invocation 

Invocation is the process of 

1. Reading the SUBMIT command line, 

2. Opening and/or creating the necessary files, 

3. Subsituting actual parameters found in the command line for 
formal parameters found in the command sequence definition, 

4. Saving the current command sequence information (by adding 
a restoration command to the end of the new command 
sequence) , 

5. Changing :CI: to the specified command sequence, 

6. Exiting to ISIS-II to actually execute the command sequence. 

B. Command Sequence Definition 

The input file specified in the SUBMIT command and containing 
the sequence of ISIS-II commands to be executed is called the 
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Command Sequence Definition Th,-e p;i 

parameters. SUBMIT will a^cn^I if i ! "®^ contain formal 
no extension is sSpL'ed. Thrco^.nf c"^' extension .CSD if 
read and copied to the Commln^ Command Sequence Definition is 
actual P^r.Lterl%ltUft^^^^^^^^ -CS) , wiJh' 

C. Command Sequence* 

The Command Sequence fn«» ^«,.-.^j u 

• CS to the root liUna^e of th^r^!^ appending the extension 
the file that will befSme the consS?^- 5^?"="« Definition, is 
temporary file that will%e"d%l%°?eTu%^n^":stoL'JL^f ' 



°' Formal Parameters 



SUBMIT allows for up to 10 frv,--„i 

(the two characters must be i^^p^^^f'^f^'^f^^ "^ «=''* fo'^'^at -%n- 
digit through 9, These for^f^'^'^^^y adjacent), where n is a 
in the command Sequencllef inTtion"^^^"' "^^ ^PP^^^ anywhere 



^' Actual Paratna»tt,-., 



defin%'d^b"theL"p^s"tior?n%\' "^'"^= '"P ^° 31 characters, 
first parameter) f^d de?LJt J k P"^«'^' list (0 beinlthe 
blank. Actual Parameters contaf^,-n^%' -"^^^ht Parenthelis, or 
be entered by embeddinlfhrDara™^?!/-^'""'" characters may 
will allow DLE (Control-pr,-^^ '®'' ^" quotes ('). SUBMIT 
file, to quote thlfolio! ni parameters, and in its input 
conventions conform ^o^heint^tT^^"- ^°^«" Parameter 
2.4.1.4. A null actual Slramelermav^Kf^ standard, section 
commas in the parameter list! ^ ^ specified by adjacent 

F. Restoration 

rjstorft'io^n tl^ll.'irVl^l^.rcl^U S^^h=Tf ^^ * 
control set. The restorat-i^n Lf» 2 • *'^^^ '^® RESTORE 
command sequence by IraMT At «^?or^f •^^^"^'^ '<= "« «"<3 "f a 
sequence is no longer needed and rfdeleteS.""^' "^ """"""^ 

3.12.10.2 Command Language 
A. Syntax 

<;parameter list> , <parameter> ! <rparameter> 
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B. Semantics 



-"7 -T — '"T-^ "^ ° oxnyj-e xme, ics lenqtii subiect to 

the restrictions withm ISIS-II, namely 122 characters. 

^vn?-^v qttI^?;^^ '"''^P^- ^^ ^^" ^^ determined from the above 
syntax, SUBMIT requires as input the name of a disk file to be 
used as the new console command file, along with an optional 
Itl .?! parameters to be substituted for formal parameter^ in 
the command file. <invoke> adds a <:restore> command to thi end 

?t^1^rm1na?ue!^''> ^" ^'''' ^^ ^^^^^ ^^^^ '^ '^ restoredio 

<restore> - The <restore> command is used to restore :CI: to 

bv SUBMIT 'LT^ '2 ^^'^^ ^° <invoke> . ^restore> is generated 
by SUBMIT, and need never be entered by the user. When the 
previous :CI: is a disk file, the file must be opened and 
repositioned by seeking to the line following the SUBMIT 
command, hence the block and byte parameters! 

3.12.10.3 Interaction with ISIS-II Cold Start Console 

lllt'^^ provides a facility for temporarily suspending input 
from a console input stream and exchanging it for the cold 
start Console, and vice versa. If a SUBMIT Command File 
?h:'^i^r^''°!l^^^"^ f Control-E character, input is switched to 
the cold start Console and interactive input is enabled. While 

chSm?^^^ 5""?" ^^!.??^^ ^^^^^ Console, the command sequence file 
should not be modified (e.g. edited). The SUBMIT command 

fr^r?h^ "'U'\'^t^t'^t^ ^^ entering a Cont?ol-I ch^lcter 
from the cold start keyboard. 

3.12.10.4 Interaction With ISIS-II Cusps 

Any program executing under ISIS-II and receiving its console 
commands from :CI: may be executed under SUBMIT, given 
sufficient buffer space {see Section 3.7). Regardless of the 
number of nested SUBMITS, SUBMIT requires a total of 1 open 
file, since the console input is a disk file. This overhead 
must be taken into account when determining the origin point of 
programs destined to run in a SUBMIT environment. 

3.12.10.5 Summary of Normal Use Methodology 

The invocation of a SUBMIT command sequence is best described 
via an example. In this example, it is desired to copy a group 
of files from one disk to another (in this case, disk to disk 
x; . Tnis can be accomplished by using a nested SUBMIT. 



ISIS-II ERS 
Page 52 



A. Command File Definition 

First Level File, ARCHIV.CSD 

SUBMIT COPY(FOO) 
SUBMIT C0Py(BA2) 

Second Level File, COPY.CSD 

ATTRIB :F1:%0 WO 
DELETE :F1:%0 
COPY %0 TO :F1:%0 

B. Invocation 
-SUBMIT ARCHIV 

C. Expansion 

-SUBMIT ARCHIV 
-SUBMIT COPY(FOO) 
-ATTRIB :F1:F00 WO 

FILE CURRENT ATTRIBUTES 

:Fl:FOO 
-DELETE :F1:F00 

:F1:F00, DELETED 
-COPY FOO TO :F1:F00 
• COPIED :F0:FOO TO :F1:F00 
-:F0:SUBMIT RESTORE :F0 :COPY,CS { :F0: ARCHIV. CS , , 17) 
-SUBMIT COPY (BAZ) 
-ATTRIB :F1:BAZ WO 

FILE CURRENT ATTRIBUTES 

:F1:BAZ 
-DELETE :F1:BAZ 

:F1:BAZ DELETED 
-COPY BAZ TO :F1:BAZ 
COPIED :FO:BAZ TO :F1:BAZ 

-:FO:SUBMIT RESTORE ;F0:COPY.CS ( :F0 -.ARCHIV. CS, , 35) 
-:F0:SUBMIT RESTORE : FOr ARCHIV. CS (: VI: ) 

3.12.10.6 Error Messages 

SUBMIT can produce 3 error nessages in addition to those 
produced by the ISIS-II KERNEL. All are fatal. 

ILLEGAL SUBMIT PARAMETER 
PARAMETER TOO LONG 
TOO MANY PARAMETERS 

The P (pause) switch supported by the COPY, DIR, ai 
cusps should not be used in a SUBMIT command string 
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exchanging disks while SUBMIT is being executed could generate 
errors in the logical structure of one or more disks. Since it 
is possible to correctly execute SUBMIT with the command string 
containing the P switch, no error message will be output, but 
the user should be warned of the possibility of loss of data on 
one or more disks. 
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3.12.11 IDISK Command 

IDISK is used to initialize a disk. This operation is a subset 
of the forsat operation because it does not perform any general 
file copying operation- It can be used on either a single or a 
multiple drive systen. 

IDISK allows the user to create a non-system disk or a basic 
system disk. If it is used to create a non-system disk, the 
disk will contain the following files: ISIS. MAP, ISIS.DIR, 
ISIS. LAB and ISIS. TO. This last file will contain a nonsystem 
bootstrap. A basic system disk can be produced by using the S 
switch. If the S switch is used then ISIS. BIN and ISIS.CLI are 
put on the disk together with the files mentioned above, with 
the difference that ISIS. TO will now contain the TOBOOT program. 



^command line> 
<command tail> 
<target device> 



= r DEBUG ITDISK <command tail'> 
;= <target device>^fid> L <switch lis^l 
:= :F0: ! :F1: I :F2: ! :F3: ! :F4: ! 
:F5: I :F6: ! :F7: ] :F8: ! :F9: 
^fid> ::= <filename'>r .<extension>T 
<switch list> ::= <switch list><switch> » <switch'> 
<switch> ::= S I K » FROM <integer> 
<integer> ::=0!l»2!3l4!5l6!7i8l9 

If the K switch is present, the target disk will be initialized 
by using interleave factors which are optimized for operation 
on an IPB85-based system. The default, i.e. K switch not 
present, are interleave factors optimized for operation on an 
IPBBO-based system. . 

Note: The K switch should not be mentioned in any 
documentation intended for the outside user until 
the IPB85-based system is released. 

The FROM <integer> switch allows the user to specify the disk 
drive from which the required initialization files will be 
taken. If no FROM <integer> is given, the default will be 
Drive 0. If FROM is not followed by a valid integer (0-9), the 
message 

UNRECOGNIZED SWITCH 
will be displayed on the :C0: device. 

When invoked, the IDISK program will determine whether or not 
it must run in a single drive mode. If the target device and 
the FROM integer device specify the same drive, then single 
drive mode will be assuaed. In a single drive mode IDISK will 
issue the following message: 

LOAD DISK TO BE FORMATTED, THEN TYPE (CR) 
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When required the following message will be output at the end 
of pass one: 

LOAD SYSTEM DISK, THEN TYPE (CR) 

The message to load disk to be formatted will then be repjeated 
one more time. When the disk initialization is finished IDISK 
will, output the following message: 

FORMATTING FINISHED, LOAD SYSTEM DISK, THEN TYPE (CR) 

When this is done control is returned to ISIS-II. A system 
with 32K of memory will require two disk swaps in order to 
complete the single drive format operation. Systems with 48K 
or more will require only one swap. Because of this 
requirement, IDISK is located in such a manner that it cannot 
be invoked from within a SUBMIT file. 

IDISK cannot abort and return control to ISIS-II every time a 
fatal error condition occurs since IDISK cannot count on the 
fact that a system disk is present on the system. In this 
situation control will be passed to the MONITOR. 
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3.12.12 HDCOPy Command 



The HDCOPY command provides a fa«=4. «i, • , 

BACKuf E^ ^aestxnatior^ Eva- 
<source> ::= «3rive nuaber^ 

''^trn^st':ttT.reiTo'tt T^II It'^^ '° !!-<' ^-^ P^^tters but 
single drive copy capabilftyr If th.v"f *' i^'^' ^"^^^^ ^^ "° 

dev.ce number, then I fataTi^.or'wiu'^resuIt'L'/th''" ""^ 

WJ.XJ. result and the message 

SOUBCE DRIVE CANNOT EQUAL DESTINATION DRIVE 

Will be output to the :C0: device if h«<.h ^ ■ 
correspond to hard disk olatllrZ \^ B'' devices do not 

result and the message P^^"*''^' 'hen a fatal error will 

SPECIFIED DRIVES NOT HARD DISK 
will be output to the :C0: device. 

oth%f:L'rrL°?afiLrir\sreiii%"eis!?f°"^^^^"^"^^^-^' 

write to the destination, read^lromfhf/^f? ^"^ '^"^ ^o"^«' 
with the source, if the c^oarlson ^^ destination, compare 
the message comparison process reveals a conflict, 

DRIVE „, LOGICAL TRACK xxx, LOGICAL SECTOR yyy MISCOMPARES 

If1he'Mr"^?L'at'?of ^r^S-s'^ellLf' ^'^"=^"^ *'"^ -"^inue. 
message process reveals no miscomparisons, the 

VERIFICATION COMPLETE 
will be output to the :C0: device. 

Xf TSTQ— TT • 

(e.g. under 'the"environment^o?^L^??" '^'?«,=o"'Pletion of HDCOPY 
destination of HDCOPY and 'fO^ no ii°" ^'^'^ *"^ =^0' «« the 
f xles) , then control is^pa^sed tl the"'^^„??Srf '"^ ^^^^^^ 
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A sample invocation is: 

-HDCOPY 1 TO 3 V 

ISIS-II HARD DISK COPY Vm.n 

LOAD DISK(S), THEN TYPE (CR) 
:F1:MYDISK.N0W IS SOURCE DISK 
:F3:MYDISK.BAK WILL BE OVER-WRITTEN 
OK TO CONTINUE? 

y 

:F1:MYDISK.N0W COPIED TO :F3 xMYDISK.NOW 
VERIFICATION COMPLETE 
HDCOPY COMPLETED 

If the BACKUP switch is specified, the following actions will 
be taken: drive 1 copied to drive 0, prompt for backup 
removable platter to be placed in drive 1, drive copied to 
drive 1, prompt for system removable platter to be placed in 
drive 1, drive 1 copied to drive 0. If the V (verification) 
switch is specified, the disk platters will be verified at each 
step in the process. The BACKUP option applies only to drives 
and 1 of a hard disk system. If :F0: and :F1: do not 
correspond to hard disk platters, an appropriate error message 
will be displayed on the :C0: device. 

A sample invocation is: 

-HDCOPY BACKUP 

ISIS-II HARD DISK COPY Vm.n 

LOAD DISK, THEN TYPE (CR) 
:F1:MYDISK.N0W IS SOURCE DISK 
:F0: ISO OAT. SYS WILL BE OVER-WRITTEN 
OK TO CONTINUE? 

y 

:F1:MYDISK.N0W COPIED TO :F0 :MYDISK.NOW 

LOAD BACKUP DISK IN :F1:, THEN TYPE (CR) 
:F0:MYDISK.NOW IS SOURCE DISK 
:F1:MYDISK.BAK WILL BE OVER-WRITTEN 
OK TO CONTINUE? 

y 

:F0:MYDISK.NOW COPIED TO :F1:MYDISK.N0W 

LOAD SYSTEM DISK IN :F1:, THEN TYPE (CR) 
:F1:IS00AT.SYS IS SOURCE DISK 
:F0:MYDISK.NOW WILL BE OVER-WRITTEN 
OK TO CONTINUE? 

y 

:F1:IS00AT.SYS COPIED TO :F0 : ISOOAT.SYS 
HDCOPY COMPLETED 
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3.13 Supported Configurations 



the system drive win be letermfn^^ f^"^"^ identification of 
adai.tio:lai%t'^^^;^,ar,3%",«^p%y„«lled DKCF^ 3na\^^^^ " 

wh!lA the'inJe^ratirdrfve'il'ri"^,^"^^"" '^^ situation in 
corae about either Ihrough thi lJ2.lt t^^^^^ ^''"^ ''"is may 
modification of the Modll 220)^ ?n fh,-f ^" "°"°^ °^ '"rough 
double density drive will be rlf^.L 4^ "^*' "^ integrated 
:F6: depending upon the presen^^^fK^ ^^ =^°'' '^2:, :F4 : , or 
and/or a set If double dfn"tylr?ves" °' " '""^ ''^^'^ 
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TABLE 13.3 ISIS-II SUPPORTED CONFIGURATIONS 

HD = Hard disk, 

F = fixed platter of hard disk 
R = removable platter of hard disk 
DD = Double density floppy 
SD = Single density floppy 
ISD « Integrated single density floppy 
Parentheses () indicate optional drives within the 
particular configuration. 
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3.14 TO BOOT 



The function of the TOBOOT program {=ISIS.TO) is to fa) 

arive ana (c, convey the infl^Un'lllnfV. 'iTtl'l^'^'^"' 



upon- operator hardware reset, TOBOOT is loaded by the MDS BOOT 
?abli°f.^r'^l " ^°^ ^°«' f'^°"' « fl°PPy -aisk drive? ^ffer^o 
dfsketih thff "^:;^r-"i°"^ involving only floppy '° 
aisKettes, this boot drive" corresponds to :F0:. For 

ShlJ^i^S''-''?"^ involving hard disk and floppy diskettes this 
"boot drive" corresponds to :P4:. uisnetces, tnis 

TOBOOT may also be loaded via an abort (i.e. fatal erron ,n 

ISiri^P' '; "', ^ "°^i[™'' °« "«™^"<5- "n^« these londilions 
ISIS-II must already have been loaded into the system. 

nrnL!2^2°^ ^t^ ^V" ^°^^^^ ^"^ control passed to it, it will 
dr?vls ?h?f or^^r ^"i9"?^"t Of physical devices t^ iogTcal 
trllll'^ This order of assignment is based on controller 
?eldv? tH ir^ "P^r*^ ^° controller present and drive 
IttV'^ ^^ '""^^'^ °^ assignment is hard disk, followed bv 
double density, then single density, and finally integrated 
single density. The various physical device to loSiclldrfvp 

done by tSbmI but r^fs J'r%''^''?* ^^ actually present is not 
I/S%rIver^^^'ecut?on"iml.)°"" '"""' "^ '"^^ ""-" '^-^ 

?rth!f^Tj'i^ aetermine the system drive. The system drive 
i«J=2 * fi'"'*.^'""" ""^"^^ ISIS. TO, ISIS. BIN, and ISIS.CLI are 

i The »v^?!™"l •" ^-""^ '=^^'^^ "^o"^)' a G8, or an Interrupt 
1. The system drive is determined by the following algorithm- 



1. 
2. 



hf J''^*'!''^ aisk controller is present and the 0-th 
hard disk drive is ready, then it is the system drive. 

78H^fs'or«in^ *'*'%''?? ^^'^ "°PPy controller at Port 

fhfn f^^K "*" '^f "^ °-" floppy ""^i"" is ready, 
then it becomes the system drive. 

3. Otherwise, the Integrated single density becomes the 
system drive. 

8?nce"oBO^T lt«i%°h!^°f *!:* "^** ^**P^ '"^'^ "■"" be true 
d^«?^<. Szl ^^f^^^ J"^ to have been loaded from a disk 

^onir^i'i ^^ *^^° ^^^^ """^^"^ "e situations where a hard disk 

the system drive^ffl fi' '''%°^' ""^ ^'^'^ "^'^'^ i' not rfady, 
tne system drive is a floppy drive, and so in this case the 

system drive is not :F0: but rather :F4:. 
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After the above tasks are accomplished, TOBOOT will load the 
ISIS-II KERNEL (=ISIS.BIN) from the system drive and will then 
cause CLI to be loaded (also from the system drive) and control 
to oe passed to it. 

TOBOOT conveys information concerning the hardware 
configuration and the system drive to the ISIS-II KERNEL via a 
10 byte array called DK$CF$TB (Disk Configuration Table) and a 
byte variable called SYSTEM$DRIVE (see Appendix E) . 

Error Conditions 

1. If the TOBOOT (i.e. ISIS. TO) loaded corresponds to a 
nonsystem diskette, the message 

NON-SYSTEM DISK, TRY ANOTHER 

will be displayed on the Console and control will pass to 
the Monitor. 

2« If m the course of making its device assignments, TOBOOT 
finds a non-single density controller at Port 88H, the 
message 

ILLEGAL DISK DEVICE AT PORT 88H 

is displayed on the Console and control is passed to the 
Monitor. 

3. If in the course of making its device assignments, TOBOOT 
finds a non-standard 5440 hard disk controller, the message 

ILLEGAL DISK DEVICE AT PORT 68H 

will be displayed on the Console and control will pass to 
the Monitor. 

3.15 Support of Relo Object Files In Load System Call 

ISIS-II has internal code for the LOAD system call to implement 
loading of the absolute subset of the Object Module Formats. 

The absolute subset of the Object Module Formats consists of: 

1. Module Header Record. 

2. Content Record, with absolute segment identifier. 

3. Module End Record. 

Records with record types numerically greater than or equal to 
22H (RELOC) are considered errors and cause loading to be 
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aborted with a "BAD LOAD POPMaT" f^*.^i 

les«5 fhan -jou K I * UKMAT fatal error. Record tvDe<; 

lis lis fs E:;.'s:':naE';„'?.i^s'.s.^-"""" 
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4.0 OPERATING PROCEDURE 

4.1 ISIS-II Cold Start Procedure 

4.1.1 Cold Start in a Floppy Disk Only Environment 

In an environment involving floppy disks only (i.e. no hard 
disks and hard disk controller) the following sequence is 
employed : 

1. Power on the Intellec MDS or Intellec Series 2. 

2. Power on the physical disk device corresponding to drive 0, 

3. Place a system diskette in drive 0. 

4. (Omit this step if Intellec Series 2) : Set the BOOT switch 
to ON. 

5. Press RESET. 

6. (Omit this step if Intellec Series 2 containing integrated 
CRT): When Interrupt 2 light comes on, type a space on 
either the teletype or video terminal keyboard. This 
determines which device will be the initial system console 
(i.e. cold start console) . 

7. (Omit this step if Intellec Series 2) : Set BOOT to OFF. 

8. The message 

ISIS-II, Vn.m 
will be displayed on the system console. 

9. CLI will now prompt with a dash '-'; the system is now 
ready to accept commands. 

4.1.2 Cold Start in a Hard Disk and Floppy Disk Environment 
(Drive Is System Disk) 

In an environment involving hard disk and floppies with a 
system hard disk platter in Drive 0, the following sequence is 
employed : 

1. Power on the Intellec MDS or Intellec Series 2. 

2. Power on the hard disk device corresponding to drive and 
the floppy disk device corresponding to drive 4. 

3. a) Place a system diskette in drive 4. 

b) Place a hard disk system platter in drive 0. 

c) Flip START switch of the hard disk, wait for ready 
light to come on. 

4-9 Same as Steps 4-9 in 4.1.1. 
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situations (aborts= fatal errors Tn/ "'f*^* ^" '^^ other 

In an environment involvina harA ,^,-.i, 

the hard disk controller^tt^^h fif" and controller (or just 
operations is exacUy like that of Ti^i^*""' "^ sequence of 
syste™ diskette should ^ ^Ar^ ' l^l^Tf^^i^^^ H. 

onef ''The"typ"a!"har'd°"d?sk t&'^°'''''^^ ''^ ^" intermediate 
of 4.1.2. Thus in this l^termfdf^?!^^ ^-^^ environment is that 
(after readying the h«d dilkrfnitL??^^'""^!!'.'^*'^ "=" "ill 
disk platter on drive and then tr^nc^ t"^ u"^^^ ^ ^y^em 
environment by hittinc respt ^^^ '='^J"sfer to the 4.1.2 
:i "itcing reset or an Interrupt 1. 

4-2 Summary of Normal Use Methodology 

types""o^andran"d°™f„"Lsponse'"r""=*^'^ ■"°<'- ^^^ -« 
under the ISIS-ii KE^EU^^he ^vntffJ" ^°'"'^'' ^""^ executed 
IS governed by the cusp's syntax an^,-= ^o^ands to the cusps 

sp s syntax and is covered in section 3Tl2. 

4.3 Summary of Error Conditions 

condltiorls^'^L'iofs «e%'i?he?'l:r,"'"''°"^ °' "-^^-9 error 
il tToTrt^'"' '" "error '!;:;^blr"1see ^^^'n'^L^'c, "l^? "^°^ 

Section 3,8). "^^'^ Program m the STATUS parameter (see 

Detection of a fatal error results in 2 actions: 

i^ationr?^ Prin?ll'on"?he'^Sfd'slarr?^ "^^S '""^ ' — °^y 
specified at cold-start tV»» start Console device (as 

format is ^""^ '""^' **« Section 4.1.1). The message 

ERROR NNN, DSER PC XXXX 

m^if Lrre°?urn'ad'dress"?^ ^''"^ ^^"^"^ - APPendix C, and 
system call resuUing in the .rr^ user program which made the 
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lines are printed: 

STATUS = OOYY 
DRIVE = ZZ 

where "yy" represents the error value from the appropriate disk 
hardware and "ZZ" is the disk drive (See Appendix C) . 

2. Control returns to CLI or to the Intellec Monitor, as 
determined by the setting of a system entity called the 
DEBUG TOGGLE. The value of this toggle is reset by CLI 
(see Section 3.6), is set by the DEBUG command (see Section 
3.12.7), and is modified by the LOAD system call (see 
Section 3.8.8) . 

If the toggle is false (reset) , then all open files 
(including :CI: and :C0:) are closed in their current 
state, the Console is reopened as the cold start Console 
(see Section 4.1.1), and CLI prompts for another command. 

If the toggle is true (set) , then control passes to the 
Intellec Monitor, and the user PC value is displayed. A 
graceful return to ISIS-II may be accomplished if desired 
by typing the Monitor command "G8". 

User programs may announce error conditions on the cold 
start Console in conformance with above error message 
format by use of the ERROR system call (Section 3.8.13). 

4.4 Operator Intervention 

The operator may, at any time, interrupt ISIS-II execution 
by depressing Interrupt Switch #1 on the Intellec front 
panel. This causes all currently open files to be closed 
in their current state, the Console to be redefined ( and 
reopened) as the device originally specified at cold start 
time (see Section 4.1.1), the DEBUG TOGGLE to be reset (see 
Section 4.3), and CLI to be called in to accept a command 
line. 

By depressing Interrupt Switch #0 on the Intellec front 
panel, the user may transfer control to the Monitor, 
leaving ISIS-II in a state such that it may be resumed by a 
"G" command, or terminated by a "G8" command. 
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APPENDIX A 
PL/M EXTERNAL PROCEDURE DECLARATIONS FOR ISIS-II SYSTEM CALLS 

declarations fo? these «Us LfiLf^-'^^S 'r^^^t' ''^^ ^'^^^'^ 
SYSTEM. LIB. <^"ese caiis are contained in the file 

OPEN: 

CLOSE: 

PROCEDURE (AFT, STATUS) EXTE^IAL- 

DELETE : 

PROCEDURE (FILE, STATUS) EXTERNAL- 

r..i^^^^^ (FILE, STATUS) ADDRESS;' 
END DELETE; -^oo, 

READ: 

PROCEDURE (AFT, BUFFER, COUNT, ACTUAL STATTiq^ FYmTrtJXT^r 
EN^S^ «A^^.BOPrER,COaNT:ASS^t'|?^?Sii Sst^' 

WRITE: 

PROCEDURE (AFT, BUFFER, COUNT, STATUS) EXTERNA T . 
EnS'S^?^; ^^^^'«^^^^'COUNT:STA?SsJ SsS; ' 

SEEK: 

^^^^n??^ f AFT, BASE, BLOCKNUM,BYTENUM, STATUS) EXTERNA T . 
END^S (^^'BASE,BLOCKNUM,BYTENUM:STATSij f^S;' 

LOAD: 

^""^S IpiLElTAl'^^fS'^'^'^^'^^^S) EXTERNAL; 
END LOAdT '"^^'^^^^''^^^SW'ENTRY.STATUS) ADDRESS; 

RENAME: 

^'''racS JmnPxJ'f'x^'^^'S^A^S) EXTERNAL; 
EnS^^S^^^^^^'^^^^^^^'^'^TUS) ADDRESS; 

CONSOL: 

''''dEcK <^NPILE,0UTFILE, STATUS) EXTERNAL; 
END CONSOL; ' ^^^"'^^*^"^' ADDRESS; 
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EXIT: 

PROCEDURE EXTERNAL; 
END EXIT; 

ATTRIB : 

PROCEDURE (FILE, SWID, VALUE, STATUS) EXTERNAL- 

DECLARE (FILE, SWID, VALUE, STATUS) ADDRESS; 
END ATTRIB; 

RESCAN: 

PROCEDURE (AFT, STATUS) EXTERNAL; 

DECLARE (AFT, STATUS) ADDRESS; 
END RESCAN; 

ERROR: 

PROCEDURE (ERRNUM) EXTERNAL; 

DECLARE (ERRNUM) ADDRESS; 
END ERROR; 

WHOCON: 

PROCEDURE (AFT, BUFFER) EXTERNAL; 

DECLARE (AFT, BUFFER) ADDRESS; 
END WHOCON; 

SPATE: 

PROCEDURE (FILE, BUFFER, STATUS) EXTERNAL; 

DECLARE (FILE, BUFFER, STATUS) ADDRESS; 
END SPATH; 
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APPENDIX C 
ERROR NUMBERS AND MEANINGS 

No error detected. 

inIS Itttr^l^slUT^Tj^d^^^ Simultaneously. 

pi^ ti w"ifr?sii,r^«„i-i^=u%"°" ^" -— • 

7 operation aborted? insufficient disk space. 

8 Attempt to read from a file open for output. 

9 No more room in disk directory. ""^Put:. 

10 Pathnames do not specify the same disk. 

11 Cannot rename file; name already in use. 

12 Attempt to open a file already open. 

13 No such file. ^ 

'' wrif:?^ro?ec?eS l?L!''''"^ °^ ^° '^'^'^ - — - 

17 Attempt to rename/delete a non-disk file. 

18 Unrecognized system call. 

19 Attempt to seek on a non-disk file. 

20 Attempt to seek backward past beginning of a file. 

21 Attempt to rescan a non-lined file. 

forltie^^Scfffed!"^''^^ '" "'"" °^ ^^^-^ -^^ impossible 

23 No filename specified for a disk file. 

24 Disk error (see below) . 

25 Incorrect specification of echo file to OPEN. 

26 Incorrect SWID argument in ATTRIB system call. 

28 Nn??'f •?' ''''^^ argument in SEEK system call 
28 Null file extension. 

'29 End of file on console input. 
30 Drive not ready. 

32 r!nT^^^^f f^^^ °'' write-only (output) file. 
|2 Can't delete an open file. 

I A l^l^^^^ system call parameter. 
34 Bad RETSW argument to LOAD. 

end^Sf'fUe!''"^"^ ^ ^'^^ ^^^^^^^ ^°^ ^"P"^ ^>^ ^^^^ing past 

201 Unrecognized switch. 

202 Unrecognized delimiter character. 

203 Invalid command syntax. 

204 Premature end-of-file. 
206 Illegal disk label. 

IVo IJu ^^^ statement found in input. 
208 Checksum Error. 

^?n T^^®!!^ records sequence in object module file 
210 Insufficient memory to complete job. 
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211 Object module record too long, 

212 Bad object module record type. 

213 Illegal fixup record specified in object module file. 

214 Bad parameter in a SUBMIT file. 

-— ^— "="•- www j.wn^ 0.11 a ouoMxr invocation. 

216 Too many parameters in a SUBMIT invocation. 

217 Object module record too short. 

218 Illegal object module record format. 

219 iPhase error in LINK. 

220 No end-of-file record in object module file. 

221 Segment overflow during Link operation. 

222 Unrecognized record in object module file. 

223 Fixup record pointer is incorrect. 

m Illegal records sequence in object module file in LINK. 

225 Illegal module name specified. 

226 Module name exceeds 31 characters. 

227 Command syntax requires left parenthesis. 

228 Command syntax requires right parenthesis. 

229 Unrecognized control specified in command. 

230 Duplicate symbol found. 

231 File already exists. 

232 Unrecognized command. 

233 Command syntax requires a "TO" clause. 

234 File name illegally duplicated in command. 

235 File specified in command is not a library file. 

236 More than 249 common segments in input files. 

237 Specified common segment not found in object file. 

238 Illegal stack content record in object file. 

239 No module header in input object file. 

240 Program exceeds 64K bytes. 

When error number 24 occurs, an additional message is output to 
tne console: ^ 

STATUS=OOnn 
DRIVE=mm 

where nn has the following meanings for floppy disks: 

01 Deleted record. 

02 Data field CRC error. 

03 Invalid address mark. 

04 Seek error. 

08 Address error. 

OA ID field CRC error. 

OE No address mark. 

OF Incorrect data address mark. 

10 Data overrun or data under run. 

20 Attempt to write on Write Protected drive. 

40 Drive has indicated a Write error. 

80 Operation attempted on drive which is not ready. 
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For hard disks, nn has the following meanings: 



ng! 

ID field miscompare. 
Data Field CRC error. 
Seek error. 
Bad sector address. 
ID field CRC error. 
Protocol violations. 
Bad track address. 

B?rf^5j*^'^^?^f."'^^^ °^ ^^^^^^ "°t found. 
Bad data field address mark. 

Format error. 

Attempt to write on Write protected drive. 

Drive has indicated a Write error 

Operation attempted on drive which is not ready. 

Table 1: Nonfatal Error Numbers Returned by System Calls 

ll 8.' ^' ^' ^^' ^^' ^^' ^^' 2^' 25, 28. 
2,' 6.' 

2, 19, 20, 27, 31, 35. 

2, 21. 

2. 

i' f' U' ^^' ^^' 23, 28, 32. 

4, 5, 10, 11, 13, 17, 23, 28. 

4, 5,. 13, 23, 26, 28. 

None; all errors are fatal. 
None. 
None. 

3r 4, 5, 12, 13, 22, 23, 28, 34. 
None . 

4, 5, 23, 28. 



01 

02 

04 

08 

OA 

PB 

TOC 

OE 

OF 

10 

20 

40 

80 



OPEN 

READ 

WRITE 

SEEK 

RESCAN 

CLOSE 

DELETE 

RENAME 

ATTRIB 

CONSOL 

WHOCON 

ERROR 

LOAD 

EXIT 

SPATH 



Table 2: Fatal Errors Issued by System Call: 



OPEN 

READ 

WRITE 

SEEK 

RESCAN 

CLOSE 

DELETE 

RENAME 

ATTRIB 

CONSOL 

WHOCON 

ERROR 

LOAD 

SPATH 



If 7, 24, 30, 33. 

24, 30, 33. • 

7, 24, 30, 33. 

7, 24, 30, 33. 

33. 

33. 

1/ 24, 30, 33. 

Ir 24, 30, 33. 

1, 24, 30, 33. 

1. 4, 5, 12, 13, 14, 22, 23, 24, 28, 30, 33. 

33." 

1, 15, 16, 24, 30, 33. 
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r\ io-?7 i07o TWTFi rTiRPfiRAT ION . ALL RIGHTy RESERVED. NU FARi Uh I Hi- i-kul-^hi. 
OR PnlLlfATION HAY BE^R^^^ TRANSCRIBED, STORED IN A 

^TRIEVAL ^Y°TEM? OR TrIn^^ ANY LANGUAGE OR COMPUTER LANGUAGE, IN 

1\NY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, MAGNETIC, UPTIUAi, LhEMIcAW 
•^MANUAL OR OTHERWISE, WITHOUT THE PRIOR WRITTEN PERMISSION 0F_IN1EL 
rnRPORATinN, 3065 BOWERS AVENUE, SANTA CLARA, CALIFORNIA 95051. 

THE PURPOSE OF THIS DOCUMENT! IS TO BRIEFLY DESCRIBE THE OPERATION OF THE 
ISIS-II OPERATING SYSTEM, VERSION 3- 

IT IS INTENDED THAT THIS DOCUMENT BE THE FIRST ONE ON THE LISTINGS OF THE 
R4;DENf ISIS SOURCE^ TO PRODUCT ENGINEERING. SIMILAR W 

OnrilMENTS COVERING CUSP SOURCE MODULES AND CSPLIB SOURCE MODULE^ SHuULD APPEAK 
Ai^THE FIRST LISTINGS ON THEIR RESPECTIVE LISTINGS. ^ 

PLEASE REFER TO THE I^I^-II VERSION 3 ERS (EXTERNAL REFERENCE SPECIFICATION) Ah 
1-0 THE ACTUAL SOURCE MODULES THEMSELVES FOR MORE DETAILED DESCRIPTION OF THE 
SYSTEM. 

L THE r-:ic;-ii OPERATING SYSTEM MAY BE VIEWED AS A COLLECTION OF ROUTINES, 
SOME OF WHICH ARE ALWAYS PRESENT IN MEMORY AND THE REST OF WHICH «R| 
LnCATED ON THE SYSTEM DISKETTE (IN DRIVE 0) AND ARE CALLED IN Ao NEEDED 
/:^"'jHE RESIDENT PORTION OF ISIS, REFERRED TO AS THE "COLONEL" 
LOCATED IN THE FIRST 12K OF MDS/EMDS MEMORY (I.E. & .MJ 
IS iIDHPOSED OF Z0 JEiJ180 MODULES (ABORTj^^T , AUXfC,'QTTj 

^ dMBi^MoD^^^) DIRECT, DISK, c£Ms^(|xm ISIS,COA] 

•r ' PATh.C1;#ENaS^ CiicAHS RW, 0t^ AND 5 ASM80 MuDOLES (DISK!, 
.liIMP, L0C6Z, TRAPTT 'i'^ / t> ^..-r'^t se^*^Vt ^^^co^ 
R. THE NONRESIDENT PORTION OF ISIS, REFERRED TO AS THE "CUSPS", 

IS LOCATED ON THE SYSTEM DISKETTE. WHEN LOADED INTO MDS/EMDS MEMORY, 
A CUSP WILL OCCUPY MEMORY ABOVE THE ISIS BUFFER SPACE (THE I^Ii 
glippER qpACE IS A CONTIGUOUS SECTION OF MEMORY BEGINNING AT 3000H 
AND EXTENDING UPWARDS IN 128 BYTE INCREMENTS). THE CUSPS 
nONSiST OF 13 MUTUALLY INDEPENDENT PLM80 MODULES (ATTRIB, B I NOB J, 
r:LI^ COPY, DELETE, DIR, EDIT, FORMAT, HEXOBJ, IDISK, OBJHEX, RENAME, 
SiiBMlf). WITH THE EXCEPTION OF CLI, EACH CUSP CORRESPONDS 
TO AN ISIS SYSTEM COMMAND KNOWN TO THE USER? TYPING IN THE COMMAND 
m THE CONSOLE DEVICE WILL CAUSE THE LOADING OF THE CORRESPONDING 
rnsp. CLI, THE COMMAND LANGUAGE INTERPRETER, IS RESPONSIBLE FOR 
PARSING AND ACTING ON INPUT TYPED BY THE USER ON THE CONSOLE? IT lb 
LOADED INTO THE MEMORY AS A RESULT OF ACTION TAKEN BY THE EXIT 
ROUTINE IN RESIDENT ISIS. ^ ^^ ,^ ^^,^ r---r-.Tr.Ao 

r IN ADDITION TO THE ABOVE, THE ISIS SYSTEM IS COMPUTED UF THE BUUTbTRAF 
LOADER. THF BOOTSTRAP IS COMPRISED OF A PLM80 MODULE CALLED T0BOUT 
(FOR TRAnK"0 BOOT, THE TRACK NUMBER ON THE SYSTEM DISKETTE UPON WHICH 
THE FILE RESIDES) AND AN ASM80 MODULE CALLED JMPD. 
THE JMPD MODULE PLACES INTO LOCATION 3000H A JUMP INSTRUCTION TU 
T0BnOT (WHICH THE LOCATE PROGRAM PLACES AT 3200H) . THE T0BOOT MODULE 
DOES THE ACTUAL BOOTING? ITS OPERATION IS DESCRIBED IN SECTION 
2.C BELOW. 




tSls: -S-O s.uv< {>c2:^z- 

THE ISl:-:-II OPERATING SYSTEM IS LOADED INTO MEHORY AS FOLLOWS: 

A WHEN THE MDS/EMDS MONITOR/BOOTSTRAP OPERATION IS; INITIATED^ THE 
FIRST Z6 SEHTORS OF TRACK ON THE SYSTEM DISKETTE ARE READ IN 
AND LOADED INTO MEMORY AT ADDRESS 3000H AND UPWARDS. 

P THE MDS/EMDS BOOT THEN TRANSFERS CONTROL TO THE ISIS T0EOUi 

([nr-ATED At":^000H). THE ISIS T0BOOT IN TURN LOADS THE RESIDENT 
priRTION riF ISIS, CALLED ISIS. BIN (BECAUSE IT IS IN BINARY OBJEUf 
FHRMAT). T0BOOT ALSO DETERMINES THE EXACT DISK CONFIGURATION UF 
THE '=;Y<^:TEM (I.E. NUMBER OF DRIVES, TYPES OF CONTROLLERS) AND 
PASSES "this INFORMATION ON TO RESIDENT ISIS IN THE FORM OF THE 
A-BYTE ARRAY DK$CF$TB (DISK CONFIGURATION TABLE). 

n. T0EOOT THEN TRANSFERS CONTROL TO ISIS VIA A CALL TO EXIT, A CALL 
FROM WHICH IT NEVER RETURNS. THE EXIT SYSTEM CALL IN TURN UAUoEb 
THE LOADING AND EXECUTION OF THE COMMAND LANGUAGE INTERPRETER (CLI). 
r-LI WILL SIT PATIENTLY WAITING FOR USER INPUT FROM THE CONSOLE 
EITHER IN THE FORM OF A SYSTEM COMMAND OR THE NAME OF A 
USER OBJECT FILE (WHICH IT WILL CAUSE TO BE LOADED AND EXhCUTED) . 

RE'=:IDENT I?:I?: CONSISTS OF MODULES WHICH IMPLEMENT THE ISIS SYSTEM 
CAU.S (THE~ISli'sYSTEM CALLS ARE: OPEN,READ, WRITE, SEEK, RESCAN, CLOSE, 
SPATH, DELETE, RENAME, ATTRIB,CONSOL,WHOCON, ERROR, LUAli, EX IT) AND 
MODULES WHICH ARE REQUIRED FOR THE CORRECT OPERATION OF THE bYoTEM 
(Slir-H AS DIRECTfiRY MAINTENANCE, DISK STORAGE ALLUUATIUN AND DEALLOCATION, 
BUFFER ALLOCATION, AND ERROR RECOVERY). .--^.-,, 

A THE ISIS SYSTEM CALLS ARE CALLS TO LOCATION 40H. AT LOUttTIUN 
40H IS A .lUMP TO THE MODULE CALLED ISIS. THIS MODULE COPIES THE 
PARAMETERS USED IN THE SYSTEM CALL, EXCHANGES STACK POINTERS (lilb MAItWf 
STACK praNTER), AND THEN CALLS THE MODULE RESPONSIBLE FuR 
CARRYING OUT THAT PARTICULAR SYSTEM CALL. UPON; RETURN FROM THAI 
HfiDllLE, THE ISIS STACK POINTER AND USER STACK POINTER ARE AGAIN 
EXCHANGED, AND CONTROL IS RETURNED TO THE USER PROGRAM (WHICH 

MAY BE A CUSP). _, . ,-^-,, --ri-r-r. 

B. WITHIN RESIDENT ISIS, THE MODULES CAN AND DO CALL EACH UTHER . 



•^Z 
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PATH: 
DO; 

/H 

HQDULE KAHE PATH 



ABSTRACT 



THIS IS THE rfflDULE THAT UNDERSTANDS THE SYNTAX DF 
PATHNARES, AND PARSES THEH. 

nODULE ORCANIZATIOH 



THE tIDDULE CONTAINS THE FQLLDUINe COHPOHEHTS: 

1. 2 GLOBAL ARRAYS, 'PN' AND 'PM2', EITHER DF UHICH IS 
SUFFICIEHT TD CONTAIN THE "INTERNAL FDR«" OF A PATHNAHE. 
THESE ARE PROUIDED HERE FDR THE CONUENIEHT TRANSITORY 
USE BY SUCH SUBROUTINES AS QPEM. RENARE, DELETE, ETC. 
THEY ARE NDT DIRECTLY USED BY 'PATH'. 

2. THE BYTE PROCEDURE 'PATH', VWICH CONUERTS A LEGAL PATHNAHE 
INTO INTERNAL FQRtt, RETURNI^ AH ERROR NUHBER FOR THE 
TYPE OF PATHNAHE FOUND. (0 HEANS LEGAL PATHNAHE, OTHER 
NUHBERS INDICATES SYNTAX ERRORS IN PATHNAHE.) 

3. THE PROCEDURE 'XPATH', UHOSE ONLY REASON FC^ EXISTENCE IS 
TO REDUCE THE SPACE USED FOR CALLS TO 'PATH' THROUGHOUT 
THE PROGRAM; IT REDUCES CODE TO TEST THE RESULT FRDH 
PATH AND OPTIONALLY CALL ERR, TO A SINGLE POINT IN THE 
PRDGRAH. 



CALLING GRAPH 


»PATH 


»XPATH 


'PATH' 


ERR (ERROR) 


GLOBAL UARIABLES ACCESSED 


-> PN 


-> PN2 


GLOBAL UARIABLES HODIFIED 



ftlTHIB: 
/KSHQIIST»/ 



SIKCLIM 
$IHCLtfl)E 
SIKCLUDE 
SINCLUDE 
SIHCLU&E 
$IHCLU&E 
SIHCLUDE 
SIHCLUDE 
SIHCLUDE 
$IHCLUDE 
SLIST 



CBHflOH.LIT) 

ftTTRIB.LIT) 

AFT. in) 

ERRQJ?.«EX) 

PftTH.REX) 

0EyiCE.lIT> 

E«BDRXn) 

AFT.tfEX) 

DIRECT. «EK) 

R«.fiEX) 



ftTTRB: 
PRQCEDURECFILESPTR, SyiD^MftLUE) PUBLIC- 
DECLARE (FILESPTR,S«ID> ADDRESS; 
DECLARE \}f±K BQDLEAH; 

DECLARE mma) BYTE DATA (IHyiSlBLESAT TRIBUTE, 

SYSTEHSATTRIEJIUTE, 
«RITEP$ATTRIByTE, 
FIIRHAT$ATTRIBI11TE); 

IF S«ID > mHEH CALL «ARH<BAD$ATTRIB); 

CALL XPATH(FILESPTR,.P«>; 

IF PH«» > FSDEU THEN CALL tfARH(HO!l$&ISK§FILE); /n DD «/ 

CALL AFT$yil©By<PH<0»; 

IF HOT DLQIK.PH) THEH CALL tfAI9i(N0SSUCH!a^ILE); 

DIRECT.ATTRIB = DIRECT. ATTRIB OR ltASK<LDy(SyiD»; 

IF HOT yALUE THEN 

DIRECT.ATTRIB = DIRECT.ATTRIB AHD (HQT HASK<LBU(S«ID»)i 
CALL DII^CLOS<PH(0)); 
EHD ATTRIB; 

ehd; 



EOF 



BUFFER: 

m\ii£ mm buffer 



MtSTgftCT 



THIS fiQDULE CBHTftlKS RffllTIKES FOR CBTftlHIHe, CLE^IHe, 
RElEftSIKe, ftKB PftCKIHG BUFFERS OF 128 BYTEJf EACH. 

MODULE mmiiimm 



THIS mmil CQMTftlKS AH ALLDCATIOH TABLE <'BUFFER$TAgLE'>, AH& 
k SUBRKITIICS. 

BUFFERS ARE ALBCATED IH RAR> STARTIHC AT ".ttEHORY", tm 

mmim upuaros <to the user's prosrah d)?kih pdiht). 

'BITFERSTABLE' COHTAIHS !«? EHTRIES. ftlLQUIHe fiAXinUH BUFFER 
USASE ¥m 6 OPEH FILES (ALL LMD IHPUT FILES, 3 BUFFERS EACH), 
PLUS 1 BUFFER FOR THE CflHSQLE. 

CALLIHS eR^H 



»CLEfflSiBUF 
»RETURKSBUF 

»eET$Bir 

ERR ( ERROR) 
»PACKS^TSBUF 
eElMiOF 
RETURHSBUF 

eiOBAL ^RIABLES ACCESSED 



l1EHffi?Y (PL/H PRE-&ECL<«?E» MARIABLE) 
IHUARIA8TS 



EACH ENTRY IH 'BUFFERSTABLE' IS IHITIAIIZED TD 'n LEgAL 
MALUES ARE '0', '1' AHD '2', UITH THE FOLLDUIKe ftEAHIHCS: 

- CQRRESPDHDIHG BUFFER IS AVAILABLr, BUT HOT ALLffilATES). 

1 - CQRRESPDHDIHG BUFFER IS HOT AMAILABLE, BECAUSE IT 

IS IH THE CUf9IEHT USER RAK AREA. 

2 - C0RRESPDHDIH6 BUFFER IS IH USE. 

ENTRIES CHANGE UHEH BUFFERS ARE QBTAIHED OR RELEASED (UIA 
6ETSBUF AHD RETURH$BUF), QR UHEH THE THE USER'S PROGRAH QRIGIH 
PQIHT IS CHAHGED <BY ftAKIHG A CALL TD THE 'LOAD' SUBRDUTIHE). 

/KSHDLIST«/ 

SIHCLUDE < 

SIHCLUDE < 

SIHCLUDE ( 

SIHCLUDE ( 

$IHCLU&E < 
5LIST 



CUfHQH.LIT) 
AFT. LIT) 
Ef^flR.LIT) 
ERROR. HEX) 



F2: AFT. HEX) 



DECLARE mfftmimium} byte public ihiiial 

FRflCEDURE (BUFSftDDRESS) RIBLIC; 
DECLARE BUF$ftDDR£SS ADDRESS; 
DECLARE BUFFER BASED BUFSADDRESS <i28) BYTE; 
DECLARE I BYTE; 

m 1=0 TO 127; 

bufferci) = o; 
ehd; 

EHD CLEAR$BUF; 

RETURHSBUF: 
PROCEDURE (BUF$ADDR£SS) RIBLIC; 
DECLARE BUF$ADDRESS ADDRESS; 

BUFFERSTABLE<SHR<E!UFSADDRESS - .SEHDRY,?)) = 0; 
EHD RETURKSBUF.; 

GETSEJUF: 
PROCEDURE ADDRESS PUBLIC; 
DECLARE I BYTE; 

DQ I = TQ LASKBUFFERSTAK.E); 
IF BIFFERSTABLE(I) = TJO 

DO; 

BUFFERSTABLEd) = 2; 
RETURH .HEHORY f SHL(DBUBLEa),?); 
EHD; 
EHD; 

CALL EJg?< ABORT, HO$FREE$BUFFER>; 
EHD CETSISIF; 

PRBCEDlflE PACKSAFISBIJF 



ABSTRACT 



THIS RBUTIHE REASSIGNS BUFFER SPACE, AHD fiBMES BIFFER 
COHTEHTS AS HECESSARY, TO EMSURE THAT THERE: IS HB UMUSED 
BUFFER SPACE BELDU THE AREA OCCUPIED BY THE HI^iEST BUFFER 
IH USE. 

PARAfiETERS 



HBHE 

UALOE ^TORHED 



THE ADDRESS OF THE FIRST (LflyEST) BYTE IM THE FIRST 
(LBUEST) UKALLQCATED BUFFER. THIS IHFQRHATIQH IS THE "TOP DF 
BUFFER AREA" DESCRIBED IH THE r©S-DflS DPEWtTOR'S HAHUAL. 

GLOBAL VARIABLES ACCESSED 



AFT.LEUF 
ftfT.DBUF 

GLDBftL UftRMBLES riQDFn:& 



fiFT.LEiUF 
rIFT.PBIF 



m EOy AFT ENTRY UHICH IS ^ CURREHTLY ASSieHED 
BUFFER ^DRESS, THE BUFFER IS KTURHED <USIHe 'RETURHSBUFO, 
flHD IS REPLACES BY ft HEU BUFFER <USIH€ 'GEISBUF'). IF THE HEy 
BUFFER IS A DIFFERENT BHE THAT THE ONE RETURNED, THEN THE 
DATA FJSM THE OLD IS rffiUED IHTQ THE HEW. 



K/ 



PACK$AFT$BOF: 
PROCEDURE ADDRESS PUBLIC; 
DECLARE <I,J,IHDEK> BYTE; 
DECLARE BUFFERSTD? ADWESS; 
DECLARE EPTR ADDRESS, BUFADR BASED BPTR ADDRESS; 
DECLARE NEy$BADR ADDRESS, JEUSDATUH BASED HEy$BA0R<128) BHE, 
DLDSBADR ADDRESS, OlD$DATUfi BASED DLD$BADRa28> BYTE; 

BUFFER$TBP = . HEfiORY; 
DO I = <rT$BOTTQn TO AFT$LAST; 
IF HOT AFr<I).E«PTY THEN 

DQ imiK = a TO 2; 

BPTR = .AFKD.PBUF - 2KINDEX; 

J = si«(BUFADR - .mmwi,7); 

IF J <= LASKBUFFERSTABLE) AND BUFFEHSIABLECJ) = 2 Tl€N 
DQ; 

OLDSBADR = BUFADR; 
CALL RETURHSBUF<DL0SBADR); 
KEUSBADR -- SETSBUF; 

IF BUFFERSTBP < NEUSBADR THEN B!JFFER$TDP = IC«$Biy>R; 
IF l€«$BADR <> DLDSBADR THEN 
do; 

Dfl J = * TQ 127; 

HEUSDATUnCJ) = QLDSDATUfiCJ); 

BUFADR ^ HEUSBADR; 

end; 
end; 

end; /« OF LOOP TO H^DLE EACH BUFFER P,D,L k/ 
end; /h of LOOP TO TRm>ERSE AFT k/ 
RETURN BOFFERSTQP * 128; 

END packsaftsbuf; 



end; 

EOF 



CDHSDi: 

do; 

/RSHQLISTM/ 
$IHCLUDE ( 
SIHCLUDE ( 
$IHCLU&E < 
$IMCL«>E ( 
$IHCLUDE < 
§iHCLODE ( 
$IHCLUDE < 
$IKCLODE ( 
SIHCIODE ( 
5IHCLU&E ( 
SIKCLUDE < 
OUST 



CiafilQH.LIT) 

E»aii?.LIT> 

fiFT.LIT) 

QPEM.LIT) 

BEyiCE.LIT) 

ERRBR.REX) 

ATT.ttEK) 

PATH. HEX) 

IM^ftTH.PEX) 

QPEH.IfEX) 

CLOSE. BEX) 



OEClftRE CUR$Cffl(SBLSIH <12) BYTE miK, 
CURSCQHSDLSDUT (12) BYTE PUBLIC; 

DECLftJS CDL&$C0HSDL$IH(5) BYTE IHITIftL CrXI: '), 
CnLD$C[lHSflL$DUT(5) BYTE IKITIftL CM: '); 

DECLARE CDL&§ST^T$FLftG BBDLEAK IHITIftL (TRUE); 

DECLfWE (Cia.Oan>Ey.ALTSCIDEy) BYTE PUBLIC; 

CQHSDLE: 
PRDCEDURE (IHFIL£,DUTfILE> PiBLIC; 
DECLARE (IHFILE^QOTFILE) ft&DRESS; 
DECLARE IKSTRIHG BASED IHFILE BYTE, 

BUTSTRIHe Bi^m flUTFILE BYTE; 
DEaARE TOP BYTE; 
DECLARE im}i2) BYTE 

DATA <'Ty'); /a T OR U IS 1ST LETTER Qi- DEVICE HA8E «/ 
DECLARE IHniB BYTE AT U>i 

If CQL5$$TART§FLAe TI€H 

do; 

CDLD$CQHSi3LSIH<l).C[a.DSCBHS0L$DIIT<l) = TIlRMdHITIQ AND 1); 

IHFILE = .CnLDSCDHSOL$IH; 

i3«TFILE= .CQLD$CDHSfHL$DUT; 
E8D; 

eLQBAL$SE^RnY = ABIBJT; 
CALL XPATHCffilTFILE, .PH>; 
IF PH<0> <> CQBEy THEK 
DO; 

CALL CLOSE(AFTM$CQHSQLSflUT); 

TEttP = BPEH<DUTFILE,yRITESriQDE,FALSE); 

CALL XPAT9(DUTFILE, .CUR$CDHSa$BUT); 
EHD; 

CALL XmH(IKFILE..PH); 
IF PKCO) <> CIDEU THEH 
DO; 

CALL aQSE<ftFTHSCQHSBL$IK); 

TEHP = QP£K(IHFILE,READSrSI&E,100H); 

IF COLDSSTARTSFLAe THES 
CDLD$CIDEy = AFT(AFTHSCBHS[8.SIH).DEUICE; 

ALTSCI&EV =^ CBLDSCIDEy; 

CALL XPATHaKFILE,.CURSCQHSBL$IH); 

im; 

COLDSST/y?T$FLAe = FALSE; 
EHD CDHSffiLE; 



UKOCDH: 
PRQCEDURECftFTH.BUFFERLOC) PUBLIC; 
DECLARE AFTH BYTE; 
DECLARE BIffFERLflC ADDfESS; 
DECLARE HAnELflC ADDRESS; 

HARELDC = .CUR$COHSDL^UT; 

IF AFTH TffiH HARELOC = . CURSCQHSQLSIH; 

CALL UHPATHCHAf£LDC,B«FFERLDC); 

im mmmi 
ehd; 



EOF 



DELETE: 
DO; 

mnii mm: delete 



ftSSTRACT 



THIS HQDULE CONSISTS OF PROCEDURES 'DEL' m 'DELETE^ 

cftiLiHe eRftPH 



»&ELETE 

'XPftTH' CPftTH) 

'Em' (ERROR) 

'ftFTS«IlffiDU' (ftFT) 

'0LBOK' (DIRECT) 
»DEL 

WTSyiDBU' (ftFT) 

'WRITE' (RU) 

■'^mO' (DISK) 

'SEEK' (SEED 

•FR££$eLQCK' (ALLOC) 

^nftPRy (ALLOC) 



5L0&AL yftRIABLES ^CESSED 



iiFTHSDIRECT (LIT) - DEL 
ASDf^TSmK (ftFT) -" Da 
ft$DBOF (ftFT) — m. 

eiOBftL MftRIftBLES HDDFIED 





:.■:: =:=.■= — ==_= ===s=:s:== 


ssss 




M/ 




/K$H01ISTM/ 


§IHCL«DE 


(:F2:C[lHDH.Ln) 


SIHCLUDE 


(:F2:tfT.Ln) 


SIHCLUDE 


<:F2:DISS(.Ln) 


SIHCLUDE 


(:F2: SEEK. LIT) 


SIHCLUDE 


(:F2:BEyiCE.LIT) 


$IHCLUDE 


(:F2:tRRaR.LIT) 


SIHCLUDE 


(:F2:ftTTRIE!.LIT) 


$IHCLUDE 


(:F2:&iRLCT.flEX) 


SIKCLUDE 


(:F2:<rT.REK) 


SIHCLUDE 


(:F2:PftTH.rEX) 


SIHCLUDE 


(:F2:Dm.O) 


SIHCLUDE 


(:F2:ffllQC.HEX) 


SIHCLUDE 


(:F2: ERROR. HEX) 


SIMCLltDE 


(:F2:Ry.ffEX) 


SIHaUDE 


<:F2:SEEK.fflEX) 


SLIST 




DEL: 




PfiDCEDURE(DISKi«ll!) mKKi 


DECLARE DISKHOH BYTE; 


DECLARE (ftFTH>I) BYTE; 



DECLftRE [ilBCKHO ADDRESS Dftlft (0); 

DECLARE BYTEKD ADDRESS DftTft<ld /« SnE<DMCT) «/); 

DEaARE TEI1P ADDRESS; 

DECLARE BOF BASED TERP (^S^> ADDRESS; 

DECLARE FUHK LITERALLY '1'; 

/K IHTERHAL DELETE ROUTIHE 

DISKHUn = FODEy, FiDEy, F2DEy> F3DEy, FHDEU, OR F5DEM 
DIRECT «UST CQHTAIH THE DIRECTDRy ENTRY FOR AH EKISTI«e 
FILEC»r DISK. 
AFT SLAT FOR THE ^PRQPRIATE DIRECTORV nUST HAME m¥m%; 
AND THESE BUFFERS HUST BE SETUP FOR DIRECTORY READIJ^ AHD 
yRITIKC. THESE BUFFERS «ILL BE CLOBBERED 

DIRECT. OiPTY = TRUE; 

CALL AFT$UIS&0y<AFTK:=AFTKSDIRECT*DISKHUI1); 

CALL yRITE<AFTH> .DIRECT. SIZE< DIRECT)); 

CALL li:SIQ<yRITE$COftHAHD,DISKM!>ASDATifiSBLK,ASDBUF); 
CALL SE£K(AFTK,SEEKSBAC}C..BLOCKHfl, .BYTEHi3); 
TE9P = A$DB«F; /k TERP -> A BUFFER «E K«}« EXISTS «/ 
DQ yHILE DIRECT. HDR$BLK <> r, 

CALL FREESBLDCKCDISKMUlf, DIRECT .HDR$BLJC) ; 

CALL «»SI0(READ$CQrH1AHD,DISKKU», DIRECT. HI>R$BLK, TEfiP); 

DIRECT. HDR$BLIC = BUF(FLIKK); 

DO 1=2 TQ 63; 
IF BUF<I)<>0 THEN CALL FREESBLOCK<DISKHU»,ByF<I»; 

END; 
END; 

CALL ABSID(READ$CDfiflAHD, DISKNUff , ASDATASBUC. ASDBUF ) ; 
CALL n(WSyRITE<DISKNUfi); 
END DEL; 

DELETE: 
PROCEDURE (PATHHAHE) PUBLIC; 
DECLARE PATHHAifE mmiBSi 
DECLARE I BYTE; 

CALL XPATH(PATHHAr!E..PH>; 

IF PN«» > FSDEU THEN CALL iSiRHCNDNSDISKSFILE); /« DD «/ 
CALL AFTSyil>Dy(PN(0)); 

IF NOT DIOQKX.PH) THEN CALL yAlSJCHOSSUCHSFILE); 
IF (DIRECT. ATTRIB AND (yRITEP$AT TRIBUTE OR FQRHATSATTRIBIITE)) <> H 
THEN CALL yARH(yRITESPRflT£CT>; 
DQ I = AFTSBOTTOri TO AFTSLAST; 
CAIL AFTSUINDOyCI); 
IF (NOT ASERPTY) 
AMD <A$DEyiCE = PK($)) 
AND (A$ISNO = DIRECTSISHO) 
THE;H call yARN<CAHTSI^LETE); 
END; 

CALL DEL(PH(0)); 
END DELETE; 
END; 

EOF 



OIRECT: 

riQDULE mm nmtimi 



miimn 



m. KHOyLEDSE ABDUT THE FDRrtftT ftHD LQCftTIDH QF ft DISKETTE 
MRECT[8?y IS CQHTAIHED BY THIS ftflOOLE. 

i105>«LE [a?eflHI2ftTI0H 



THE «D&ULE COHTftlKS A DMft AREA, «HICH HDRnfilLY CDHTftlHS 
THE INFDSfHftTIOH FROJl A SIHSLE EHW IH ft DISKETTE DMCTdV, 
AH& THE PRDCEOllRES 'DIRSCLBSE' ftHD 'DLQOK'. 

imiiHe eis»PK 



»l>I8SaOSE 

MJSURITE (DISK) 

eETSBUF (BUFFER) 

aFTsyiHDoy <An) 

REyiHD (SEEK) 

«F.ft0 (Ry) 

SEEK (SEEK) 
8ETIifH$e$iF (BUFFER) 

BLC^ftL yfleft&LES ACCESSED 



ASDftTft^K (AFT) - DIRSCLQSE 
mmW (AH) - DIRSCLDSE 
ft5&EUICE (AFT) -- DLDBK 

&LQBAL yftRIABLES flODFIED 



mUmr (AFT) ~ DLQOK 
hWmF (AFT) — DLDOK 
DIRECT (ALL 16 BYTES) - DLflQK 

IMUARI^ilS 



m EUERY DISKETTE, THE DIRECTORY FILE IS PftRTITIOKED IHTQ 
"EHTRIES" ClSiTftlHIHe 16 BYTES CF DATA EACH. 
THE MARIDUS BYTE- AND ADDRESS-yftRIABLES UITHIH AK EKTRY ^E 
eiVEH DESCRIPTIUE HA«ES (SEE THE STRUCTURE 'DIRECT' BELSa). 
fiT ALL TIRES, TfC FDLL0«IHg HUST BE TRUE: 

1. DIRECT. EJfPTY = FALSE => THE EHTRY COMTAIHS «EAHIH€FUL DATA. 

2. (DIRECT. E«PTY = TROE(0FFH» => THE DIRECTORY SLOT IS ETIPTY. 

3. (DirECT.EflPTY ^ TWIE(0?FH» ■=> THE DIRECTORY SLOT, AHD ALL 
FURTHER DIRECTORY SLOTS, ARE EHPTY. 

K f 

'•-f 

■s$HQLISTJ«/ 



SIHCLUOF. ( 
^IKCLUDE < 
SIHCLU&E < 
$IHCLtM)E ( 
SIHaU&E ( 
^IHCLODE ( 
$IKaUDE < 
$IHCLUDE ( 
SIHCIODE ( 
SlIST 



CQRnBH.LIT) 
SEEK. LIT) 
ftFT.UT) 
AFT. HEX) 
ftLLQC.rSEK) 
WSK.ffEX) 
RHJEK) 
BUFFER. HEX) 



F2:SEEK.nEX) 



&ECLftRE DMCT STRUCTURE < 

ERPTV BQOLEfiH, /« FLftS TO IHDICATE UHETHER BIRECTD8Y 

EHTRV IS USED )?/ 
niU6} BYTE, /« FILE \mi a/ 
EXTO) BYTE, /K EXTEHSIBK k/ 
ATTRIB BYTE, /H FILE ATTRBUTES «/ 
EOF$CQUHT BYTE, /« CHARACTER COUHT, LAST 0ATA BLOCK «/ 
01KSC1HJHT ftOi^SS, /H HUHBO? OF BLOCKS IH FILE «/ 
HDR5BLK ADDRESS) /« ADDRESS Of FIRST PQIKTER BLOCK «/ 
PUBLIC; 

DECLARE DIRECTSI$HO BYTE PUBLIC; /ii DIRECTORY OTRY POIHTER R/ 

&IR$CLQS: 
PRnCEDURE(AFTH) PUBLIC; 
DECLARE AHH BYTE; 

THIS r^SCEDURE ASSURES THAT AFTUIHDOy HAS BEEK CALLED, 
CORRECTLY SETTINC W THE APPROPRIATE DIRECTDRY SLBT, 
AMD THAT THE DBUFFER Hm PBUFFER HAUE CORRECT DATA, 
BUT HEED mi BE RETURNED TD THE POOL 

51/ 

CALL URITECAFTH, .DIRECT, SIS<DIRECT)); 
IF A$DE^§READ THEH CALL ABS«RITE<A$DATA!?BLK,A$DBUF); 
EHD DIRSCLOS; 

DLOOK: 
PROCEDURE<FH) BOOLEAN PMIC; 
DECLARE FM ^DRESS; 
DECLARE RCQUHT BYTE; 

/a THE LQCATIDH AT (RCfflJHT f 1) IS ffODFIED BY THE PROCEDURE READ, 
mntl BYTEHQ fiUST ALUAYS FOLLOU TME DECLARAHQH DF RCQUHT . 

DECLARE BLQCKHD ADDRESS DATA <0); 
DECLARE BYTEHQ ADDRESS; 
DECLARE ARRAY BASED m ill) BYTE; 
DECLARE <I,AFTH) BYTE; 
DECLARE DHUn ADDRESS; 
DECLARE RETURKSMALUE KIDLEAH; 

/a 
THIS PROCEDURE IS USED TO LOOKUP A FILE HAHE IH A 
MSK DIRECTORY. THE DEVICE HUHBER OF THE DISK 
IS COHT AIMED IH FH(0), im SIK CHARACTERS OF THE 
FILE HAHE ARE IH FHCl) T!«DU6H FH(4), AHD THE 
THREE CHARACTERS DF THE FILE EXTEHSIBH Ai?E IH 
fM?) T^QUCHEHC^I). 

THE PROCEDURE RETURNS 'TRUE' IF THE FILE IS FOUND, 
yiTH DIRECT$ISHfl PDIHTIHe TO THE ENTRY OF THE FILE IH THE 



DTHERtflSE, THE PRQCE&URE RETURHS 'FftLSIL'. flHD DIRECT$I$HrJ PQIHTS 
AT ft BlflKK SLEJT IN THE DIRECTQRV. THE DIRECTBRy HftRKER IS 
j^DJUSTED SO THAT IT PQIHTS AT THE BEeiHHIHe M THE EHTRY 
POIHTE& TQ BY DIfiECT$I$HO- 

IF THE DIRECTORY IS FULL, DIRECTSISHO == OFFH. 

W 

/fi SET ftf'TH TO SLOT HUHBER FDR DIRECTORY «/ 
fiFTCAFTH := ftSDEUICEi-AFTHSDIRECT) . DBUF = €ET$BUF; 
aFT<ftFTH).PBIiF ■-- CETSMIFi 
CALL ftFT§UIlH3y<AFTK); 

CALL reuikd; 

DIRECTSISKQ = OFFH; 

RCaUHT = l; /K AHY NQH-ZERO MALUE FDR RCBIJHT HERE «/ 

DHIIH, DIRECT. EflPTY,RETURH$yM.UE = FALSE; /« DHUH = »/ 

m yniLE rcqumt o o ahd direct.espty <> 7FH; 

CALL IEADCAFTH, .DIRECT, SHE (&IRECT), .RCCHINT); 

IF DBECT.EttPTY THEH 

00; 

IF MR£CT$ISHD=0FFH THEH DIRECT$I$HO = DHUfi; 
imi 
EL%£ 

DO; 
OB I = 1 TO ^; 
IF ARRAY (I)<>&IRECT.FILE(I-1> THEH m TD Hfll^TCH; 

ehd; 

0IR£CT$I$HO - DHUfi; 
l?ETyRH$(mLUE = TRUE; 
RCOtlKT = <►; 
ehd; 

HOHATCH: 

DHUH = DHUR*!; 

mi 

IF DIR£CT§ISHfl <> OFFH THEH 

do; 

BYTE}® = DIRECT$I$HOHSnE(DMCT); 

CALL SEE{C<AFTH>SEEKSABS, .BLOCKHO, .BYTEHO); 

ehd; 

CALL RETURHSBUFCASDBUF); 
CALL RETURH$BUF<ASPBUF>; 
I7ETURH fETURHSUALUE; 
EHD DLDOK; 

Em; 

EOF 



DO; 

HQDULE mm mmm 



ABSTRACT 

THIS HB&ULE CQHTftlHS TIC 'OftfiE' SYSTEM CALL R?QCE0liRE OHIY. 
CftllJHe CRfiRi 



yynimm 


XPftlH' (Pi^TH) 


^ERI?-' (ERRffl?) 


'm$\iimQr (aft> 


'&LIIIR' (DIRECTORY) 


^yRiTE' (Ry) 


'DIR$CLQSE' (DIRECTORY) 


n/ 


mumtw 


unciUK < 


F2:DEyiCE.LIT) 


$IHCLUDE ( 


F2:ERRflR.LIT> 


SiHCLUDE ( 


F2:ftTTRIB.LIT) 


5IKCLUDE < 


F2:Cft!ttaH.LIT> 


SIHCLUDE ( 


F2: AFT. LIT) 


5IHCLU0E ( 


F2:PftTH.»EX) 


SIHCLUDE ( 


F2:BIRECT.riEX) 


SIHCLUDE C 


F2:ftFT.ItEK) 


SIKCLUDE ( 


F2:E88flR.ftEX) 


SIHCLUDE < 


F2:Ry.nEX) 


$LIST 





lEHftflE: 
FRQCE&URE (Ql.9$FILE,HEy§FILE) PUBLIC; 
DECLARE (OL0SFILE,HEy^ILE) ADDRESS; 
DECLARE I BYTE; 

DECLARE ALREADYSEXISTS BOQLEAHi 
/K 'OLDSFILE' IS REHftfiED; THE HEU MARE IS 'HEU$FILE' «/ 

CALL XPATHCflLD$FILE..PH2>; 

CALL XPAIH(H0I5FILE,.PK); 

IF PH(0> > FSDEU THEH CALL yARH(HOH$&ISK$FILE); /» W) »/ 

IF PH<0) <> PH2(0) THEK CALL UARH<DIfFEREKT$DISK); 

CALL AFT$yiHDQ«<PK(0)>; 

/*E IF 05FILE ALREADY EXISTS AMD OLDSFILE DOES HOT EXIST> 

THEH «E UAHT TD SM THE OLDSFILE ERRIBR RESSACE. 

HDUEMER. DLOOK<HEySFILE> SHOULD PRECE&E DLDDK(DLDSriLF). 

THIS IS BECAUSE PDIHTER UARIABLES SHDOLD BE LEFT PQIKTIHe TO 

THE Qi.D FILE UPDH EXIT ¥mn THIS PROCEDURE, a/ 
flLREADYSEXISTS = DLQflK<.PH); 
IF HOT DLQDK(.PH2) THEH CALL yARK(HD$SUCH$FILE); 
IF (DIRECT. ATTRIB AHD (URITEP$ATTRIBUTE OR FDRHATSATTRIBOTE)) <> 
IHEH CALL UARH(URITE$PROTECT); 
IF ALREADYSEXISTS THEH CALL yftRH(HULTIDEFIMED>; 
DB I = TO 8; 
DIRECT. FILE(I) = PHd+l); 



Cftll DIRSCLQSCASDEMICE); 
END SEKAfEi 

Em; 

EOF 



RESCffii: 

/ft mm uamu nmm mum ^mmm uummm mmm\imu mma mmu umm amm 
umumm¥.nmmmmmmmmp.mmtiiitimnmmmiimmtf.mmiimnmmmii 

nssuLE mm REScft« 



MS W»ULE CQHTOS OHIY THE gESCAH SYSTER CALL PROCE&URE. 
DMIHS eRftPH 



»RESC^ 

ERR (ERROR) 
6LQBAL l^KIMJLES ACCESSES 



A$LBUF (AFT) - RESCAK 
mmiJ (AFT) — RESCAH 

GLOBAL UARMtLES »DDIFIED 



HOME 



/KSHDLISTK/ 

$IHCLI®E ( 

$IHCLtlDE ( 

$IHCLUDE < 

SIHCLUDE ( 

SiHCLUDE ( 
$LIST 



F2:ClBfl1BH.LIT) 



ERROR.LIT) 
AFT. LIT) 
AFT.rtEX) 
ERISR.rO) 



vtf.AVfm'. 
PRDCE0URE<AFTH) PUBLIC; 
DECLARE AFTH BYTE; 

DECLARE TEffP ADDRESS, BYTES BASED TERP<128> BYTE. 
ADDR BASED UnP(6k> ADDRESS; 

CALL AFTSyiHDQy(AFTK); 

TERP = aslbuf; 

If ASEDIT <> AHD HOT BYTES(125) THEM 

mmi6i) = o; /« lptr == 0; ihsrode = false k/ 

ELSE CALL UARH<CAKT$RESCAH); 
EHD RESCfMt; 

Em; 



EOF 



TB: do; 

DECLARE TOBffiJT LIBEL PUBLIC; 

/K THIS UERSIDN OF TOBQQT mZ BEEH J«I&1FIE& TQ UDRK DH MJTH 
SIHCLE DEHSITY ftHD DOUBLE DEHSITY. IT yiLL UMK BH BOTH 
THE BBS flM& THE IHTELLEC. 

«/ 

$IHCLUDE(:F2:CPY8T5.KQT> 

SIHCLyDE(:F2:CPYRT5.DTft) 

$IHCLm>E<:F2:ClBSSH.LIT) 

$IHCLIM)E<:F2:CW»?.LIT) 

$IHCL0&E(:F2:^e.Ln> 



$IHCLW)E<:F2:imTE.FO) 

$IHayDE(:F2:Em.PEX) 

SIHCLIM(:F2;CBKSBL.PEX) 

$IHCLU0E(:F2:«llfIOI.P£K> 

$IHCLUDE(:F2:E3mOf?-Ln) 

$IHCLtS>E<:F2: BISK. LIT) 
SIHCLlHyE<:F2:BEyiCE.LIT) 

SIHCLI©E<:F2:CI.PEK> 

SIHCLIM(:F2:RI.PEX) 

$IHCLlM<:F2:Cn.PEX> 

SIHCLUDE<:F2:ra.PEX) 

$IHCLU&E<:F2:LB.PEX) 

SIHCLUDE<:F2:HICHK.PEX) 

$IHCLU&E<:F2-.IDSET.PEX) 



DECLARE <USERSSTATUS>USERSSTACKPTR,STARTSftDDR> ADDRESS; 
DECLARE ASDEUICE BYTE; 
DECLARE KWF BYTE; 

DECL^E RTC LITERALLY 'OFFH'; /s REAL TIRE CLOCK fi/ 

DECLAfE BQ8T LITERALLY '2'; 

/« INPUT FRffl! RTC IS A BYTE, Tffi SECOHD BIT FRi3« THE RICHT 

CORRESP[»fl>S TQ THE BDDT SUITCH. IF THIS BIT IS 1 THE SyiTCH IS 

OH, AND IF IT IS THE SWITCH IS OFF. 

DECLARE ISISSSieN0H(12) BYTE I»ITIAL (CR,LF,'ISIS~II, r>, 
Sia^y<2) BYTE, /« yERSIDH HUltBER u/ 
SICHSBBTCi) BYTE BHTIM. CO, 



Sie»SE(2) BYTE, /k EDIT HUTBER fi/ 
Sieii$CglF(2> BYTE IHITIftL (CRAF); 

/K UERSIOHSLEyEL AND EDIT$lEyEL ARE SET IH THE LQW2 HODIIE ^i 
DECLAfE yERSIffiiSLEyEL BYTE AT UlY, 
DECLARE EI>IT$LEyEL BYTE AT UJY, 



/K THE FDLimilHS FOUR yARIABLES ARE OSE& IH T^ ERR PROCEDURE «/ 
DECLAliE 

STATUS ADDRESS ; /« ERROR HUriBERS ARE PLACED fCRE m/ 

DECLAJSE 

D£BilS$TQSgLE BOQLEAH ; /» SOyERHS ACTIQH yJiEH ERROR IK^CURS i^/ 
DEClffiE 

6LDBALSSEyERITY BYTE ; /« miERRIDES HQR«AL ERROR SEMERITY k/ 
DECLARE 

FDCC$ERRIBJSTYPE ADDJESS ;/« HAS DATA OH DISK I/Q ERRORS «/ 



DECLARE ttDSHOH ADDRESS DATA (0); /» AH EKTRY PfllHT FDR THE }»S HflHITQR <«/ 
DECLARE BTSTRP ffi)DRESS DATA <8); /« AH EHTRY POIHT FOR ISIS «/ 

DECLARE IHITIDSBASE ADDRESS IHITIAL m, IHITID BASED IHITIDSBASE BYTEi 



DECLARE fiSCl<8> BYTE IHITIAL (CR> LF, 'ERROR '), 

nseZO) BYTE, /H ERROR HUHBER 6DES HlERJ: h/ 

fiSG3(^) BYTE IHITIAL (' USER n '), 

fiSSkCk) BYTE, /» USER PC IH HEX CQES HERE »/ 

Iise5(2> BYTE IHITIAL (CRAF), 

«S6<i(5) BYTE IHITIAL ('fDCC=0, 

RS6?<k) BYTE, /« FDCC EiSlOR DATA COES HERE «/ 

?IS68<2) BYTE IHITIAL (CR,LF); 



DECLARE SYSSFLS BYTE AT <OFFFFH); /« 1 FQRi IHTELLEC, Fffi? «&S «/ 
DECLARE HDR5f?LK ADDRESS; /« HEADER BLOCK USED FDR LDADIHe ISIS «/ 
DECLARE I byte; 

DECLARE COl«^ieSTABLE (<i> BYTE; /» IffiRKIHC CDHFieURATIDH T^LE k/ 
DECL««?E DKCFT8 m BYTE EXTERHAL; /« DISK COHFICURATIOH TABLE IH ISIS »/ 
DECL^aE STAT BYTE; 

DECLARE CDHSflASK LITERALLY 'OOMOOOB'; /h DISK COHTRBLLER PRESEHT «/ 

DECLARE DDS^IASK LITERALLY 'OOOIOOOOB'; /k DD PRESEHT «/ 

DECLW?E ISD9IASK LITERALLY 'OOOW^B'; /R ISD FLOPPY PRESEHT »/ 

DECLARE RE^$STATUS$CIM1flA}© LITERALLY 'OICK'; /k READ STATUS CDHffAKD W ISD «/ 

DECLARE EHABl, LHERALLY '05H'; /« FSEUDD EHABLE OF IHTEJ^UPT k/ 
DECLARE DISiSL LITERALLY 'ODH'; /« PSEUDD DiISABL CT IHTERRUPT «/ 
DECL««^ CPUC LITERALLY 'OFFH'; /« CIKiTROLLEl? PORT k/ 

DECLARE nESS88<K) BYTE IHITIAL (CR,LF, 'ILLESAL DISK DEyiCE AT PORT 88K',CR,LF>; 



PROCEDURE E^ 
ABSTRACT 



THE ERR ffiflCEDURE IS USED TD HfiHDLE ERROR CiSHDITHlKS. 
IF THE SEWRITY OF THE EB?DR IS HEMUf! ('HiESSfleEO TO 
HI8H <'ftBffi?TO. THEH AH ERROR HESSfteE IS ISSUED TO THE 
COKSOLE. IF THE SEMERITY IS HISH ('ABORT') ^IKD IF THE 
MflRIftBLE 'DEBUGSTOeCLE' IS SET TRUE. THEH CONTROL PASSES 
TO im RDS rSlHITQR. 

PARASETERS 



SEUERITY THE SEVERITV OF THE ERROR. SUCH AS mim CrESSASE') 
m HIGH </*^RT'). 

ERRQRSTVPE ERROR HUffiCR WHICH IDENTIFIES THE PARTICULAR 
TYPE OF ERROR, SUCH AS DISiC I/O ERROR. 

a/ 

ERR: 
PROCEDURE ( SE^ITV,ERRQR$TYPE> ; 
DECLARE (SEyERITY,ERRBRSTYPE,I/IHAX> BYTE; 
DECLARE PC BASED USERSSTACKSPTR ADDRESS; 

IF (SEVERITY := SEVERITY OR eLrSALSSEMERITV) <> UARHIKG THEH 
DO; 

CALL J«IIIOUT(ERRDR$TYPE/ie,0, .HSe2.3); 

CALL HUffOUKPC^l^S, 'd% .ItSe%,4); 

CALL lOSETCdDCHK AHD Cfl^> ffi? (IKITIO AHD 3»; 

IHAX = 25; /n HU«BER OF CHARACTERS IH JffiRHAL ERROR fESSAGE W 

IF Ei^aiRST^E = DISKSIQ$ERROR THEH 

dq; 
IRAK == Mi /a HUffBER OF CHARACTERS IH ERROR RESSACE «/ 
CAU 8UnflUT<FDCC$ERR[B?$TYP£>l<J,'«>', .HSG?,W; 

ehd; 

DO I = « TO IflAX; 
CALL CQ(nSGl(I>>; 

ehd; 
ehd; 

ELSE 

DO; 

USERSSTATUS = ERRDR$TYPE; 

STACKSI'TR = user$stacksptr; 
ehd; 

IF severity >= abort THEH 

do; 

IF DEKi6$TQGGL£ THEH CALL RDSftOH; /k EXH VIA RDS IfflHITOR »/ 
CALL BTSTRP; /« EXIT VIA SQFTUARE BOOTSTRAP H/ 
EHD; 
EHD ERR; 



PROCEDURE CIS^FIG 
ABSTRACT 



COHFIG DETERRIHES THE CBHFIGURATIQH OF DISK DRIVES OH THE SYSTER AHD 
PUTS THE IHFQJ9IATI0H IHTQ AH ffiJRAY CALLED CQHFIG$TABLE. 



DESCRIPTHBI 



CQHFI6 RE^S IHPUTS FRDU THE PORTS ftSSBCIftTEl) UITH THE &ISK COKTRQILERS. 
IT DETERTIIHES UHETHER EACH DRIME IS DOUBLE DEHSITY, SIHSLE DEHSITY, BR 
IHTEeRftTE& SIHSLE DEHSITY. THIS DTDRnftTIOH IS PUT IHTB THE mmt 
CftLLED CBi»-I6STABLE, »ITH 1 STAHDIHS FOR DIWBLE DEHSITY, 2 FOR 
SIHCLE DEHSITV, m 3 Fffi? IHTEeRftTED SIHCLE DEMSITY. JKftSS THE DRIME 
IS HOT BEIHS USED. EACH BYTE QF THE ARRAY C08RESPDHDS TO THE DISK DRIME 
BF THE SA«E HOfiBER (CBKFI6STABLE(*) = :F0: ,ETC.> 

K/ 

CBHFIC: 
PJaiCEDURE; 
DECLARE I BYTE; 

/H IHITIfiim CQHFIGSTABLE UITH ALL ZEROS «/ 
DB I = IB 5; 
CBHFIC$TABLE<D = di 

ehd; 

/K READ STATUS OF DISK CBMTRBLLER AT 78H 

AHD FILL IH CBHFI6$TABLE ACCBRDIKgLY u/ 
STAT = DIP«T<FDCCSSTATOSSO); 

IF SHR«STAT AHD CBKSnASK),3) THEH /« CBKIRQLLER PRESENT m/ 
DB; 
IF SHR((STAT AHD W)$nASK>*4> THEH /» m PRESENTS/ 
DB I = TB 3; 
CBHFie$TABLE(I> = 1; 

im; 

ELSE /« SD K/ 
DB I = TB l; 
CBHFieSTABLEd) = 2i 

im; 
ehd; 

/K READ STATUS BF DISK CBHTRBLLER AT 88H 

AHD FILL IN CDHFI&STABLE ACCBRDIKCLY n/ 
STAT = IHPUKFDCCSSTATUSSl); 

IF SHR<(STAT AHD CBKS«ASK>,3) THEK /» CBHTRBLLER PRESEHT «/ 
DB; 
F SHR«STAT AHD DD$»ASK),M> THEK /n m PRESEHT u/ 
DO; 
DO I = TB LEH6TH(flESS88) - 1; 
CALL CB(lfESS^<I)>; 

ehd; 

CALL RDSHBH; /k EXIT MIA RBHITBR h/ 

im; 

ELSE /a SD m/ 
m; 

IF CBHFie$TAELE(2> = AHD CBHFKSTABLECS) ^i> THEH /» HOT m SYS «/ 
DB I = 2 TB 3; 

CBKFieSTABLECI) = 2; 
EHD; 

ELSE /n m SYS «/ 
DO I = 4 TB 5; 

CBHFie$TAai(I) = 2; 
EH0; 

EHD; 
ju Mnmim tf rvrifm ts m nm m mrm i rr tf tt ts ah 



IHIELLEC> THEM READ STATUS IF THE IHTCeiWTEB SIKaE 
DEHSITf CflHTRQUIR AMD FILL IH CDHFie$TftELE ACCDR&IHeLY. k/ 
IF SYSSfLe = 1 THEH /« SYSTER IS AH IHTELLEC W 

mi 
ByiPOKCPUc) = disabl; n disable interrupts «/ 
I ^ 25; /a this nuEflUT liep is necessary TQ TrBCE 

CARE OF CASES IBCRE THERE IS HB IQC. m/ 
m mill «I}ffUT<OClH) AHD 0?H) <> 0) AHD HI - I - 1) <> o>; 

; /« IKPUT DBB status. UHP UHTIL F^ = IBF = ^F = 0. k/ 
EH&; 

IF I = THEH 

mi 
output ccpuc) = ehabl; 

£HD; 

QUTPUTCOCIH) = READSSTATUSSCQSHAHD; /m ISSUE COIfitAHD k/ 

I = 2^; /« THIS TItffiQUT LOOP IS JH.ACED HERE BECAUSE AT TiC 

«flHEHT,(HQV.-7?), HOT ALL IHTELLEC SYSTEIfS HAUE 

THE Z\M£.m IBC FIRHMAffE. k/ 
DO iWILE «IHPUT(OCiH) AHD 0?H) <> 1) AHD <(I := I - 1) <> 0); 

/K INPUT DBB STATUS. LOOP UHHL FO = IBF = W» [»F = 1. »/ 
END; 

IF I = THEH 

ob; 

OUTPUT <CPUC) = EKABLi 
RETWIH; 

ekd; 
STAT = IHPUKOCOH); /k IHPOT STATUS FRSH ISD «/ 
QUTPUKCPUC) = EH^L; /h EHABLE IHTERRUPTS k/ 
IF SHR«STAT AHD ISD$}1ASK),3) THEH /« ISD PRESENT «/ 
DO; 
IF CI»<FIC$TABL£(0) = THEH /i« ISD IS SYSTEft DISK »/ 

CCBiFieSTABLEC^) = 3; 
ELSE /« ISD IS HOT SYSTEH DISK R/ 
CBHFie$TABLE(M> = 3; 
£HD; 
EHD; 

EHD COHFie; 

PROCEDURE DISKIO 



ABSTRACT 



THIS PROCEDURE PROVIDES ACCESS TD THE FDCC CQHTmLER<S), 
eOHTRQLLER 1 = BASE ADDRESS ?8H (DRIMES 0,1,2,3 FDR DD, 

DiMS 0,1 FOR SD), 
COKTRQLLER 2 = EASE ADDRESS 88H (DRMS 2,3 FDR SD, 

OR DRIUES 4,5 «€H 0-3 IS DD), 
INTEgRATED SIH6LE DENSITY CONTROLLER ^ PORT OCIH. 



PARAflETERS 



DRIVE AH IKTE6ER THRQUeH 5, SPECIFYIHe THE DISK TO BE 



I8P& THE ADDRESS OF A PARftflETE» BLDCfC T13 gE SENT TQ THE 

FDCC CQHTRDLLER. THIS PftRARETEi? BUCK fiUST BE SET OP 
AS IF IT yEBE FOR DRIME «; IF 'miW SELECTS 
AHGTHER DRIME, 'DISKIO' yiLl SET ALL THE NECESSARY 
ADDITIffllAL BITS. 

mUE JETURHED 



OESCRIPHflH 



THE CALLER PROVIDES A PARAHETER BLOCK SPECFYIHG SOHE 
UALID DISK £»»ERATIDH M miW «, AHD AH BTESER DRIVE 
SELECT mUK. 

THIS PROCEDURE WAITS FOR THE CDHTROLLER TO CD UMfiUSY. THEH 
PERFORfiS THE DESIRED ACTIDH. IH CASE QF A CDHTROLLER ERROR, 
THE DISK DRIVE IS RECALIBRATED AHD THE ftCTlOH IS TRIED ACAIH. 
IF A SUCCESSFUL CQHPLETIQH CAHHflT BE DBTAIHED AFTER »«AK$RETRI£S" 
ATTEMPTS. A FATAL ERROR OCCURS; QTHERUISE A HDRHAL RETURH IS 
nWE. 
n/ 

DECLARE DRI^««EADY BYTE DATA(«1H); 

DISKIQ: 
PROCEDURE (DRIVE/Iffl'B) PUBLIC; 

/H THIS J^CEDURE ISSUES Tfffi lOPB TO THE DISK CDHTROLLER. IH THE «/ 
/K CASE m THE 82?i IT ALSO TRANSFERS THE mitt OH A BYTE BY BYTE BASIS «/ 

DECLARE &R3^ BYTE; /« WIIVE HUHBER; ASSURES ^LUE 0.1.2. 3,^ OR 5 «/ 

DECLARE TOtP ADDRESS, <TEnP2* TBtPl ) BYTE AT (.TEHP); 

DECLARE IDPB ADDRESS; /« RJIHTER TQ THE PARAHETER BLOCK l^HED DCB «/ 

DECLARE DCB BASED lOPB STRUCTURE ( 

lOCU BYTE, /fi CHAHHEL yORD k/ 

IDIHS BYTE, /K IHSTRUCTIOH «/ 

HSEC BYTE, /« Hl»jBER QF SECTffl?S n/ 

TADR BYTE, /h TRACK ADDRESS »/ 

SADR BYTE, /a SECTOR ADDRESS »/ 

BUF ADDRESS); /« BUFFER ADDRESS k/ 

DECLARE RECALSPB STRUCTURE ( 
IQCU BYTE, 
lOIHS BYTE, 
HSEC BYTE, 
TADR BYTE, 
SADR BYTE); 

DECLARE I BYTE; /« IKDEK VARIABLE USED IH FDR STATEHEHTS «/ 

DECLARE IVAL BYTE; /u IHTERRIffT MASK VALUE K/ 

DECLARE yPBCSCOIUIAHD LITERALLY 'IW, /m ISD n/ 

UPCCSCDHfiAJ© LITEj?ALLY 'UH', /« ISD «/ 

UDBCSCffifHA^ LITERMIY '17H', /« ISD «/ 

UDCCSCDItltAl® LITERALLY 'IBH', /« ISD «/ 

RDBCSCQHHAHO LITEI?AI.LY 'IW, /« ISD m/ 

RDCCSCQHKAHD LITERAI.LY 'lAH', /« ISD «/ 

RRSTS$CQIfl1AHD LITEI^AHY 'IBH', /« ISD k/ 

RDSTSSCOHHAKD LITEI?IU.LY 'ICH'; /« ISD «/ 

declak: (isd$drive, dd$drive> boolean; 

/K indicates if drive HUHBER corresponds to ISD OR DD a/ 

DECLARE BUFFSPTR ADDRESS; /« UILL BE SAItE AS DCB. BUF m/ 

declare (BUFF BASED BUFFSPTR) (128) BYTE; /« USED FOR DATA TRANSFER UITH ISD k/ 



IDC&Rl: /a m «/ 

PROCE&URE <CBH«flHD) BYTE; 

/K THIS miCEDURE 8ETURHS EITHER THE FLOPPY DEVICE STATUS OR f>m »/ 
/« FRQH THE 8271 ISD. H IS THE RmO ESUIUALEHT TO THE HlilTQR'SH/ 
/« IfiCDRl RBUTIHE. k/ 

OECLflRE (CO}t»ftHI>> IHP«T$0ftTfi) BYTE; 

QUTPUT(CPyC) = DimU /K DISftBLE IHTERJ^IPTS «/ 

&0 UHILE (IKPUT<0C1H) ftHD $^) < > ©; 

; /K INPUT (M status; loop UKm F$ = IBF = IBF = O «/ 

£H&; 

D»TPUT<OCiH) = CDftRSHD; /k ISSUE THE CIStnftHB «/ 

00 UHILE <IHPUT(0C1H> ftH0 ^?H) <> 1; 
; /K IHPUT DBI! STATUS;! LQOP UHTIl F« = IBF = ft«0 QBF = 1 k/ 

ehb; 

IHPUTIDATft = IHPUT (OWH>; /RIHPUT STATUS m DATA FRBI? DBB R/ 

QUTPUT(C:PUC) = EKABL; /« E^BLE IKTERRUPTS «/ 

RETURH <I}^UT$&ATA>; /« RETURH UIETH THE DEVICE STATUS DR DISK DATA k/ 
EHD IDCDRi; 

I0CDR2: /K ISD «/ 

PROCEDURE (COnra^HD* DUTPUTSDATA); 

/K THIS HiBCEDURE OUTPUTS DATA TO THE 82?1 ISD. IT IS THE PUI80 »/ 
/K TO THE RBHITQR'S IflCDR2 ROUTINE. a/ 

DECLARE (CflfiltAHD, flUTPUT$DATA> BYTE; 

qutputccpik;) = disabl; /« disable interrupts k/ 

Dfl UHIIE <IKPUT(0C1H> AND 0?H) <> O; 

; /a INPUT DBB STATUS; LOOP UNTIL FO = IBF = OBF = «/ 

END; 

QUTPUT(0C1H> = CQHHAND; /» ISSUE THi: COttHAND «/ 
DO UHILE <INPUT<0C1H> AND 0?H> <> «; 

; /« INPUT DBB STATUS; LOOP UJ^TIL FO == IBF = m¥ = 8/ 

end; 

flUTPUT<OC*H> = DUTPUT$DATA; /a UJHTE DATA Tfl THE ISD FLOPPY DISK a/ 

flUTPUT(CPlMJ> = ENABL; /« ENABLE INTERRUPTS «/ 

EHD I0CDR2; 

TRAHSFER$IJ»»B$TB$ISD: 
PROCEDURE; 
/« THIS PRDCE&«?E SENDS THE IflPB TO THE 8271 ISD «/ 

CALL I0CDR2<yPBC$C0!«1A)fl), DCB.IOCU); 

CALL IDCDR2<yPCC$CDrBtAND, DCB.IBINS); 

CALL IflCDR2<UPCCSC0nnAND, DCB.NSEC); 

CALL I0CDR2<yPCC$CDri!1AND, DCB.TAIH?); 

CALL IfieDR2(UPCC$CDrB!AHD, DCB.SADR); 
EHD TRANSFERSIffi'BSTDSISD; 

DISKSSTAT: 
PROCEDURE BYTE; 

/H THIS PROCEDURE RETURNS THE DISK DEVICE STATUS «/ 

IF ISD^IUE /K m «/ 

THEN RETURH IQCDRKRDSTSSCOtfifAIffi); 

ELSE RETURN IHPUT<FDCC$STATUS$0); /« DD ON F^,Fl,F2.n «/ 

/« SD ON FO.Fl H/ 

END disk$stat; 

RSTYPE: 
PROCEDURE byte; 
/K THIS I^CEDURE RETURNS UITH THE RESULT TYPE OF A DISK OPERATION «/ 



THEN Riwm ooh; /« iwmt is hd result type for isd m.mnm «/ 

ELSE RETURH IHPUT(RESOLT$TYPES^); /a D& OH F0.F1,F2,F3 »/ 

/K m m F0,F1 «/ 

EH& R$T¥PE; 

RSBYTE: 
PROCEDURE BYTE; 

/K THIS PROCEDURE RETURMS UITH Tf€ RESULT BYTE DF ft DISK IFERftTIDH «/ 
IF ISDSDRiyE /K ISD k/ 

THEH RETURH IQCDRi<RRSTS$€Oit»ftH0); 

ELSE RETURH IHPUT<RESULT$eYTE$0); /« D|) OK F0,Fi,F2*F3 «/ 

/« SD DH F0,F1 K/ 

im r$byte; 

STARTSID: 
PROCEDURE <iaPB); 

/K THIS PRBCEDlfl?E OUTPUTS THE ADDRESS Q^ M IQPB TO Tffi DISK COHTRDLLER h/ 
/H ftKD IH THE CASE BF THE 82?1 I^ IHyOLMM A DATA TRANSFER BPERATIBH, «/ 
/« IT ALSO TRAHSFERS THE DATA QH A BYTE BY BYTE BASIS. R/ 

DECLARE WPB «)DRESS; 

IF ISDSDRiyE /K ISD «/ 

THEH do; 

CALL TRAKSFERSIDPBSTQSISD; /« ISSUE THE IQPB k/ 

DO rnilE (DISKSSTAT AHD DISKSDOHE) ="• 0; 
> 

end; 

IF DCB.IQIHS = READSCBIBtflHD THEH PQ; 
BUFF$PTRs DCB.BUF; 
dUTPUKCPUC) = DISABL; 
DO yHILE (IHPUT<0C1H> AHD 0?H> <> 0; 

; /« INPUT DBB STATUS; LOOP UHTIL F0 =^ IBF = OBF = «/ 
EHS; 

QUIPUT(OCiH) = RDBCSCffl^AKD; 
DO I = « TO 127; /« SET 128 BYTES OF DATA «/ 

DB yHILE (IHPUTCOCIH) AHD 0?H> (> 1; 
; /« INPUT DBB STATUS; LOOP UHTIL FO = IBF = ^ AHD BBF = 1 R/ 

ehd; 

BOFF(I> =: IHPUTCOCOH); /k IKPUT DATA TMi DBB k/ 
END; 

DUIPUKCPUC) = ehabl; 
ehd; 

ELSE DO; /K HOT ISD «/ 

BUTPUT<LOy$ADDRESS$0) = LBU(IOPB); 
OUTPUKHKHSADDRESSSO) = HieH<IQPB>; 

m mm (disk$stat tm disk$dqhe> = o; 

* 
ehd; 
Em* 
im startsib; 

im = ikpukofch); 

DUTPUKOFCH) = lUAL OR 2; 

/a PREW:HT IXTERRUPT i FRBH CAUSIH6 REEHTRAHCY »/ 
IF CQHFieSTABLE(DRIME) = 3 THEH ISD$DRIUE == TRUE; 
ELSE DB; 

ISD$DRM = FfflLSE; 

IF CQ»FieSTABLE<DRIUE> ^ 2 THEH DDSDRIVE = TRUE; 

ELSE DB; 

DDSDRIUE = FM-SE; 

/■a nmi ftF ^n m mMTPmiFc mi pi?r?FHT n/ 



EHO; 

RECflL$i=^.IDCy = 80H; 
R£CftL$J^.IDIXS = WCtLlBmm 
RECftLSf^.SftOR = r, 



DO I = $ Tfl IWXSRETRES; 
DO UHIIE <&ISKSSTftT ftHD BISKSDi3HE> (> 0; 

TElf 1 = r$type; 

TEttPl = ffSBYTE; 
EH&; 
/K IF 0ISK DRIVE HOT REfl&Y, eiME FATAL ERROR «/ 

IF (DISKSSTAT AHD DRIUESREADY) =^ 

THEH CALL ERR<ABflRT,DRIUE$KOT$READV>; 

CALL STARTSIQCIOPEO; 

TERPl = RSTVPE; 

IF (TEI1P2 ;= RSBVTE) = d 

THEH mi 

BUTPUT(OFCH) = lUAL; /» RflSTDRE IHTERRUFT 1 «/ 

RETORK; 

ehd; 

CALL STJ«T$Ifl(.R£CALSPB); 
EHO; 

FDCCSERRORSTYPE == TEffi^; 
CALL E}^(^IS?T,DISKIDSORa8>; 

EHD diskib; 

pjsicEDiiE m%m 



rigSIRACT 



AESIO ACCQUPLISHES THE TRAHSFER OF ITB BYTES OF 
DATA TQ/FRQR THE DISKETTE. 

PARArtETERS 



COHHAHD nUST K THE HUHERIC MALUE OF THE FDCC COrWAHD 

DESIRED. (LITERALS 'READSCflitJtAHD' AHD 'iS?ITESCBfi^HD' 

EXIST FQR THE CfflJHOH DPERATOHS.) 
DISK IHTECER OR 1. SELECTS yHICH DRIUE. 

BLOCK DISKETTE BLOCK HURBER. A TRACK HUfiKR (0-?d) 

IH THE HISH ORDER 8 BITS AHD A SECTOR HUH&ER a-26> 

m THE LOU ORDER 8 EHS. 
E:UFFER$PTR THE ADDRESS OF A 128 BYTE BUFFER IH RAH. 

yALUE mimHB 



HOHE 
DESCRIFTIDH 



AH I/O PARAHETER BLOCK ("DCB") IS SETUP ACCORDIHS TO THE 



a/ 



PROCEDURE (CQRimHD,DISK.BLQCi(,BUFFER$PTR) mUC; 
DECLARE (COIfRf^HD^DISK) BYTE; 
DECLARE ( BLOCK, BUFF£R$PTR) mUKtli 

/a mm. ffi^ 'DISK' mn be o - 3 «/ 

DECLARE DCB STRUCTURE < 
iOCy BYTE, 
IDIKS BYTE, 
HSEC BYTE, 
TftOR BYTE, 
SftDR BYTE, 
BOF ADDRESS); 

DCB.IOCy = 80H; 
DCB.IOIKS = coriitAHD; 

BCB.KSEC = l; /H IF THIS mUE CHAHSES IH THE FUTURE, k/ 
/« THE 8271 DRIie RUST Bi- CHAKeED ^/ 

DCS. TADR = HieHCBLQCK); 
DCB.SADR = LQy<BLDCK); 
DCB.BUF = BUFF£R$PTR; 

CALL disp:ib<disk,.dcb); 
EHD absib; 



/u mma mnnu nmmaMm umkh aunm mnm mmn mmm nmm nmu 
PROCEDURE ALO^R 



ABSTRACT 



ALRADR LQ^S THE ABSOLUTE ISIS FILE IHTS nEtfilRY. ALOADR 
CALLS ABSIB, «HICH IH TURM CM-LS DISKID. 

PARARETERS 



HDRBLK HEADER BLOCK OF ISIS FBI. 
MALUE RETURNED 



LflADADR ADDRESS WERE FILE IS LOADED. 
DESCRIPTI®! 



ALDADR LDADS ISIS IHTO A 128 BYTE BUFFER. THEH ISIS IS 
TRAHSFERED FRQH THE BUFFER TQ HEMIRV. 



u/ 



ALOADR: 
PRQCE&URE(HDRBLK> I^DRESS ; 
/a LOAD IHTO REltDRY THE ABS LOAD FILE AT 'HDRBLK' «/ 
DECLARE HDRBLK ADDRESS; 
DECLARE BUF<128) BYTE, BUFPTR BYTE; 
DECLARE PflI»TERS(<JH) ADDRESS, PTRPTR BYTE; 
UTi ASF 1 HAnftni? AnnBF55. i^QC-Ji Rft^-FD I riAnArsB Rvir: 



mCimi LEHGTH ADDRESS; 

LIB: 
/K lim 1 BYTE »/ 
PROCEDURE; /M LOADS 1 BYTE FRSH &UF IHTD fJEHORY «/ 

TAR6ET = ByF<BUFPTR); 

BUFPTR = BUFPTR ♦ 1; 

LEHeTH = LEH6TH - i; 

lummu^ LafiDADR+ 1; 

EMD LIB; 

ei28B: 
/K eET 128 BYTES IHTD BUFFER AT BUFADR K/ 
PRQCE&llRE<BUFftDR); 

DEaARE BIJFADR ADDRESS; 

IF <PTRPTR := PTRPTR ♦ 1) = #i THEH 

m; 

IF PQmERS<FLIHK) = ^ THEN CALL ttDSHQK; 

CAIL ABSII}(READSCQIfrfAHD,0,PDIHTERS<FLIHK), . POI«TERS); 

PTRPTR = 2; 
END. 

IF POINTERS(PTRPTR) = THEH CALL RDSfSlH; 
CALL ftBSlQ(READ$COHHAH&,0*PQIHTERS<PWTR), BUFADR) ; 
EHD ei28B; 

SIB: 
/u CET 1 BYTE k/ 
PROCEDURE BYTE; 
IF <BI»-PTR AHD ?FH) = ^ TlffH 

m; 

CALL C128B<.BUF); 
BUFPTR = O; 

ehd; 

BUFPTR = BUFPTR * li 
RETORH ^F<BUFPTR-1>; 
EHD 61B; 

G.2B: 
/« GET 2 BYTES «/ 
PROCEDURE ADDRESS; 
RETlilH eiB + <25(5 » glB); 

EHD eB; 

POIHTERS<FLIHt() = HDRBLK; /a IHITILIZE mim «/ 
PTRPTR = 43; /K " '^ H/ 

BUFPTR = O; 
STARTSLOADIKeSHEKTSRECQRD: 
DO UHILE TRUE; 
LEHeTH = e2B; 
LQAD^R= G2B; 

IF LEHGTH = THEH RETURH LOADADR; 
90 UHnXI^FPTR (> 128; 
IF LEHGTH > THEH CALL LIB; 
ELSE m TQ START$LBADIMGSHEXT§RECORD; 

im; 

m UHILE LEHGTH >= 128; 
CALL G12^<L0ADADR); 
LD^DR = LDADADR + 128; 
LE)^TH ^ LEHGTH - 128; 

ehd; 

BUFPTR = O; 

IF limm <> THEH 



Cfill ei288( JUF); 

m mm. lehsth > $; 

CALL lib; 
EH&; 
ekd; 
ekd; 

RETURN mmmn; 
END KQmm 






TOBOOT: 

TEflP = IHPyT(8ESULT$TyPE$0); 
TEHP = IHPUI<IEmT$B¥TESO); 

IF SVSSFL6 = THEN /» SYSTai IS AX HDS. UftlT FOR BOOT SUITCH k/ 
&Q yHILE (IHPUT<RTC) ftH& BOOT) <> 0; 

EKD; 
mil CDHFIS; /K &ETERRIHE BISK COKFieURATIOH a/ 
CLQBflL$SEyEBITY = yftRHIHG; 

eEBUCSTDSeiE = Tf?UE; /« CQHTRBL RETURNS TD HDiflTDR AFTER AK ERROR «/ 
IF CDKFieSTAELECO) = 1 THEN lfl)R$ELK = ISISSHi)RSBLK; /« j^ DISK k/ 
ELSE HDRSBIK - S$ISIS$HDRSBLK; /» SD DISK W 
START$flDDR = ^ilftDR(HDR$ElK>; /« LMD ISIS s/ 
DO I = TO 5; /« copy disk CONFieURATION IHFORfiftTIQH TO ISIS «/ 

DKCFTBCI) =^ Cffl«Fie$TftBLE(I>; 
END; 

CALL CDHSDL(.fi£m}RY,.fiEf!DR¥..USERSSTftTUS); /M INITIALIZE CQHSSX a/ 
CALL HUHQUT(yERSIQHSLEyEL>i^.O, .sieHsy>2); 
CALL HUrfQUKEDITSLEUEL^id,^, .SI6H$E,2>; 
CALL URITE<0, .ISISSSI6N0K,lH>.ySER$STATUS>; 
CALL EKIT; 



END; 



ftlTRie: 
SQ; 

DECLARE UEmiWSLEMEL LITERALLY '0% 
EDITSLEIEL LITERALLY '^OH'i 

DECLARE MERSISi («) BYTE DATA (VERSIOHSLEyELjE&ITSLEyEL); 



SIHCLUDE <:F2:CPYRT5.H0T) 


^INCLUDE C:F2:CPYRT5.DTA) 


/MSHDLISTK/ 


SIHCLUOE < 


F2:C0fi«QH.LIT) 


$IHCLO&E < 


F2:CHAR.LIT) 


sinauDE < 


F2:ATTRIB.LIT) 


SIHCLy&E ( 


F2:nPEH.LIT) 


$IHCLIM < 


F2:EJ3?aR.QT) 


anCLUDE ( 


F2:READ.PEX) 


5IHCLy&E < 


F2:I«ITE.PEX) 


$IHCLU&E ( 


F2:ATTRIB.PEX> 


$IHCLUDE < 


F2:EXIT.PEX) 


SIHCLUDE ( 


F2:DP£K.PEX) 


$IHCLUDE ( 


F2:UHPATH.PEK) 


SIKCLl^E ( 


F2:I«*ftTH.PEX) 


SIHCLUDE < 


F2:UCASE.PEX) 


^IKCLUDE ( 


F2:SE«.reX) 


mitmi ( 


F2:I^Lin.PEX) 


umim. i 


'F2:DI1E«.PEX) 


§iHau&E < 


F2:DLIHIT.PEX) 


SIHCLUDE ( 


F2:mAHK.PEX> 


SIKCLUDE ( 


F2:FW'PER.PEX) 


$IHCLy&E ( 


F2:FERRQR.PEX) 


SLIST 


&ECLARE (AFT){, ACTUAL, STATUS) ADDRESS; 


DECLARE BUrFER$PTR ADDRESS, CHAR BASED B«FFER$PTR<i) BYTE; 


DECLARE BUFFER (128) BYTE; 


DECLARE DIR^IL<K) BYTE IHHIAL (':FX:ISIS.D:tR '); 


DECLAIM PATfB^AflEdS) BYTE; 


DECLARE mua6) BYTE; 


DECLffiffi PK(10> byte; 


DECLARE DLDSAT BYTE; /« STORES QRIGIHAL ATTRIBUTES i^/ 


DECLARE DIRSAFTH ADDRESS; 


DECLARE PTRSSAUE ADDRESS; 


DECLARE FDUHD BYTE; 


DECLARE FILE$HA?E ADDRESS; 


DECLARE I$NO BYTE; 


DECLftE DI^ BYTE; 


DECLffi?E TEfg^ BYTE; 


DECLARE I byte; 


DECLARE VALUE BYTE; 


DECL^ 6UES<«) BYTE DATA (% I10DIFY ATTRIBWES? '); 


DECLARE ATTRXB5nflDIFIED<«) BYTE DATA (% ATTRIli^TES fiDDFIED^CRAF); 


warn AT^IST<M) BYTE DATA<l,2,k,80H); 


DECLARE QPTIBHCI) STRUCTURE^ 


LEH BYTE, 


£TR<2) BYTE, 


Sy BflOLEAK. 


SHID BYTE, 


MAL BYTE 


) IMITIAL < 


h'Q ',FALSLO,0, 


2, 'yO',FALSE,ttRITEP$SyiD.O, 


2. 


'yi'>FALSE>yRITEP$SUID,i, 



2, ^IO%FftLSE,IHUmgLE$SUI&.0. 
2, 'IlSFftlSE^IHyiSBLESSyiO,!, 
2r TO ',FALSE*FORr!AT$Syi0i «, 
2. TlSFftL^,FD8MSS«I0.1. 
2, 'SO%FftLSE>SYST£BSS«ID.O, 
2, 'SI ^FftLSE,SYSTER$Syi&,l 
}; 

K-K-M -a-S- M-K-H-K-K- S~K~H-K-a- S-K-M -tt-S- K-M--8 -H-H-- K-K~« -H-K- « 

BEeiHHBic ir mm PRoesftfl. 

CftLL 8EfiD(i,.BlffFER,LEN6TH(BUFFE8),. ACTUAL, .STATUS); 

BUFFER<ftCTtM ) = CR; 

CALL FQRCES^PER<. BUFFER); 

BUFFERSPTR = KBLAHKC. BUFFER); 

FQUKD = HQ$SUCi^lLE; 

FILESHAHE = BUFFERSPTR; 

STATUS = UPATH(E^F£RSPTR,.PH); 

CALL FILESEHRi3R<STATUS, BUFFERSPTR^TRUE ) ; 

BUFFERSPTR = DEBLAHK(yDELI!!IT<BUFFERSPTR»; 

0I»$FIL(2) = <r)m:=PH(0)) + '0'; 

PM(O) = o; 

CALL yRITECO, . < ' FILE CUi8?EKT ATTRBUTES',CR>LF). It, .STATUS); 

CALL DPEHC.DIRSAFTH, .&IR$FIL,REA&SflODE/0, .STATUS); 
I$HB = «; 

PTRSSAUE == Bi^FFERSPTR; 
00 yHILE I$lffl < 200; 
SO I = TB LftST(OPTIQH); 

iFrii3«<i).sy = false; 

ISHfi ^ DO(&IRSAFTH,.PH,ISHQ,.BUFi^); 

WMm = BUFW(io); 

IF IS^D <= lao THEH 
yQ; 

FQUHD = mi 

BUFFERSPTR = PTRSSAUE; 

BUFi<J(0> = DISK; 

CALL UHPATHC . BUFl^, . PATHMAiff ) ; 

BIFFERSRR = DEBLAHI^CBUFFERSPTR); 

STATUS = IlftJALIDSSYKTAK; 

DO UHILE CHAR(O) <> CR; 
IF CI^(O) = 'S' TREK 
BUFFERSPTR = DEBLAHK<BiFFER$PTR*l); 

STATUS = UHREeoe$suncH; 

DQ I = ID LAST(OPTXDH); 
IF SE8<BUFFERSPTR. .OPTIQH(I) . STR>OPTH»l<I) .LEH) 
AHD DELIt1IT<BUFFER$PT8)-BUFFER$PTR = DPTIDH^D.LEK THEH 

od; 
OPTID»<I).SU = TRUE; 
STATUS = OK; 
IF I > THEH 

JF I THEH DPTIQHdfD.SU == FALSE; 
ELSE DPnOHd-D.Sy = FALSE; 

£HD; 

7 m: 



ehd; 

CALL FILE:$0?RDR< status , BUFFERSPTR, TRUE ) ; 
BIIFFERSPTR = D£BLftH»C(&ELIHIT(eUFFERSPTH»; 

CALL FILE$EMIR(STATUS,BUFFERSPTR.TRUE) ; 

mmmm = "t'i 

IF riPTIB«<0).S« THEN /« SUERY «/ 

00; 

€filimnii(>,.(' '),!> .STATUS); 

CftLL y8nE<0,.PftTHHAnE,DELinn(.PftTHKft}€>-.PftTHKA?E, .STATUS); 

CALL I3?ITE<0,.8UES,LEH6TH(8UES), .STATUS); 

CALL REA&<1* .nERflRY;i28, .ACTUAL, .STATUS); 
emb; 
IF UPPERSCASE<nEI10RY<0)) = 'Y' THEH 

DO; 

DQ I = 1 TD LftST<DPTIBH); 
F rFnBH<I).SU TO 
Mi 

CALL ATTRK{<.PATHKAHE,OPTIBM<I).SUI&.QPTIDH<I).yAL.. STATUS); 
CiM-L FILESERRQRCSTATUS, .PATHHAr{E>T}^OE); 
IHJSAT = DLDSAT DR ATSLIST<8PTIDH<:C).SUI&); 
IF OPTlBHCD.yAL = « THEH 
0L&$AT = DLD$AT XDR ATSLIST(OPTIDH(I).Syi&); 

urn; 

/K IF OL&SAT <> BUFW<10) THEK a/ 

00; 

CALL W!ITE<$,.<' '),!, .STATUS); 
TEUP = DELII1IT(.PATrfilAnE)-.PATHKAfiE; 
CALL ifflinE<0, .PATHHAflE,TO!P, .STATUS); 
DO I = 1 TD 25-TEIfP; 

CALL URITE <$>.(' ')>!,. STATUS) ; 
EHD; 
IF (QID5AT AH0 URITEPSATTRIBUTE) <> Tl€H 

CAll l«nE<0, .< 'U0,1, .STATUS); 

IF mmm ahd systehsattribute) o o mm 

mil URITE <0.. .< 'S'),l, .STATUS); 
IF (OLDSAT AHD IKMISIELES^TTRIBUTE) <) THEH 

CALL «RITE<0,.< '!'),!,. STATUS); 
IF (ffi.&SAT AHD FORHAT$ATTRIBUTE) <) MH 

CALL URITE (0, .< T'),l, .STATUS); 
CALL (;inE<0, .(CRAF), 2, .STATUS); 

fm; 
EHD; 
f«d; 

CALL FILESERRflR< FOUHD , FIL£$HAnE, FALSE) ; 
EH&; 

CALL EXIT; 
£H&; 



tuf 



DO; 

DECLARE VEmiWSLEm. LITEBALLY '02H'. 
E&nSLEMEl LITEf?ftLLV '18H'; 

0ECLftJ?E UEmOK m BYTE DATA (yERSIIIHSLEMEL.ECHTSlEUEL). 



t'lHCLllOE (:F2: 
^INCLUDE (:F2; 
/KSHDLIST»/ 



SIHCLUDE 

$IHCLUOE 

$IHCLUDE 

§IHCLUi« 

$THCLUDE 

$IHCLW)E 

SIHCLUBE 

$IHCLUDE 

§IHCL«M 

MHCLUDE 

§INCL<M 

$IHCLl^ ( 

SINCLyOE 

$IIST 



Of^RTS.DTA) 
CPyRTS.KQT) 

CI^QH.LIT) 

CIM.LIT) 

ffi€M.LIT) 

SEg.LIT) 

RECTYP.LIT> 

EJSfflR.QT) 

rsncK.PEK) 

»£iM).PEX) 

yRITE.PEX) 

EKIT.PEX) 

K»EH.PEK) 

OflSE.PEX) 

BBLAHK.PEK) 

KJfllT. PEX> 

FE8RIK.PEX) 

FUPPER.PEX) 

SES.reX) 

PftlH.PEX) 



DECLARE BUFFERSSIZE ADDRESS; 

DECLARE IBUF(3328> BYTE; 

^^J^CI ARE IPTR ADDRESS; 

&ECLARE BIM^ASE ADDRESS; 

DECLARE EIKSRCD BASED BIHSBASE STRUCTUREC 

LEHSTH A&DRESS> 

ADDR ADDi^SS); 
DECLARE BUFFER<128) BYTE; 

DECLARE BUFFERSPTR ADDRESS, CHAR BASED BUFFERSr»TR BYTE; 
DECLARE (DUTPUTSPTR,IHPUTSPTR) ADDiSSS; 
uECLASE ACTt^l ADDRESS; 
DECLARE STATUS ADDRESS; 
DECLARE (ST^T.EHDFILE) BBOLEAH; 
yCClAKE (AFTSWIT^AFTSIH) ADDRESS; 
OECL^E ST^«?TSmUE ADDRESS; 
DECLARE RECfS?D$PTR ADDRESS; 
DECLARE «EmKYSPTR ADDRESS, HEIt BASED fiERORYSPIR BYTE; 



/ft 



:QHTEKT record DEFIHITIffl* 






K/ 



0ECLARE CDHTEHT STRUCTURE( 
lYPE BYTE, 
LEHCTH ADDIESS, 
SESSID BYTE, 
ADDR ADDRESS, 
DAT<1) BYTE 
> AT <.nE!«IRY); 

DECLARE JORK BYTE; 

DECLARE REClffiDSADDRESS ADWESS; 

DECLARE RLEM i^RESS; 

DECLARE TYPE BYTE; 

DECLARE IK ADDRESS; 



DECLARE OUT ffl^^RESS; 




OECLftRE LEJfSBIH ADDRESS; 




DECLARE EH0$REC BYTE; 




DECLARE CHECKS0J1 BYTE; 




/K 




a/ 


/a 


mmi HEADER RECORD DEFIMITIQH «/ 


DECLJ 


m mfmk structurec 

TYPE(l) BYTE, 
LEHSTH ffi)DRESS, 
HAfiESLEH BYTE, 
mniUD BYTE, 
TRH5I0 BYTE, 
IRHSyH BYTE, 
CHKSUfi BYTE); 


K/ 


/K 




w 


/K 


nODlM Em RECORD DEFIHmOH R/ 


/« 




«/ 


DECLARE fiflDEMD STRUCTURE< 






REC$TYPE BYTE, 






LEHeTH ^DRESS, 






TYPE BYTE, 






SEC$ID BYTE, 






mm IHHJfESS, 






CHMSim BYTE); 




/K 




K/ 


/« 


nmm.1 im m file jecord 


K/ 


/M 


DEFinTIQK 


K/ 


/H 




fey 


DECLAIM JfflDEBF STROCTURE< 






TYPE BYTE, 






LEHCTH ADDJESS, 






cmsm BYTE); 




/fi 




K/ 



BUTSRECQRD: 
PROCEDURE (PTR); 
DECLARE PTR ADDRESS, CHAR ^SED PTR<1) BYTE; 
DECLARE PI I^DRESS, ADDR BASED Pi ADDRESS; 
DECL^E <I,SIATUS) ADDRESS; 
DECLARE CHECKSUfi BYTE; 

Pi = PTR * l; 

CHECKSun = o; 

DO I = TQ ADDR * i; 

CHECKSUfi = CHECKSUfi *■ CHARCI); 
EHD; 

CHAR<ADDR+2) = O-CHECKSUJl; 
CALL URITECW^TSaUT, PTR. ADDR+3 , . STATUS) ; 
CALL FILE«RRflR(STATUS,OUTPUT$PTR, TRUE) ; 
EHD {RJT$REC[M>; 

CETS1€XTSBIH$RCD: 
PROCEDURE , 

CALL JS:AD<AFT$IH, .IBUF,L£KCTH(IBUF), . ACTUAL, .STATUS) ; 
CALL FILE^RRflR<STATUS,IHPUT$PTRJRU£>; 
U ACTUAL = THEH 
DD; 
CALL FILE$ERRQR<EARLY$EaF,IHPUT$PrR,TRU£); 

ehd; 

EKD eET$»E}?T$BIK$RCD; 
/« K/ 

J a. a/ 



CETSHEXT$BIHSBm: 
PRQCEiyURE BYTEi 
DECLARE TERP BYTE; 

IF IPTR = THEH 

CALL €ET$»EXTSBIHSRCD; 
TEMP = IBUFdPTR); 
IF(IPTf?:=IPTR + 1) = ftCTlM. THEM 
IPTR = o; 
RETURH TEflP; 

Em 6£T$KEXTSgIH$ByTE; 



START = false; 
EHDFILE = FALSE; 

fCglKMINe W HAIH PRQCRAK. 

M"-K-K-H-K-M-K-K-K~H-R-K~K-H-«-«-K-H~K-K-}|-K-R-K-K-K-fi-K~H-R-H 
K~K~H-H-«-«-K-K-M-«-K-K-«-M-K-H-M-K-K-l?-K-K"K-K-K-R-K-K-R~«-« R/ 

/n IHITIftLI^ m>mi HEADER RECDR& ^A n/ 

mmm.iwim = hodhdrstype; 

DB IH = 1 TQ SIZE(rffiDH&R) - 1; 
HQDHDR.TYreaK) = 0; 

Em, 

/« w 

IHPUTSPTR = .(':CI: '); 

CALL READ<l,.ByFFER,LEH6TH(BUFFER),. ACTUAL, .STATUS); 

CALL FILE$ERiQR<STATUS, INPUTSPTR. T^E) ; 

BUFFER(AeTi»l) - CR; 

CALL Fl^CESW'PER? . BUFFER); 

IHPUT$PTR>BtFFEB$PTR = DEBLAHKC. BUFFER); 

CALL m.M . AFTSIH, INPUT $PTR, READSBTOE, 0, . STATUS) ; 

CALL FILESEJ^OR(STATUS,IHFUTSPTR,TRy£); 

EOiFFERSPTR = DEBLAKK(DELmT<BtrFERSPTR)>; 

IF SE8(.('TQ '),BUFFER$PTR,3> THEM 

do; 

BUTPUT$PTR,B«FFERSPTR = DEBLAHK(BUFFER$PTR+2>; 
BUFFERSPTR = OLftHK(DELiniT<BUFFER$PTR)); 

ehd; 

ELSE 
CALL FILE«RRi3R< IHUALIDSSYHTAK, BUFFER$PTR/fRUE ) ; 

ekd; 

IF CHAR <> CR imn 

CALL FILE5£RRQR( IHVAL IDSSYHTftX, BtFFER$PTR , TRUE ) ; 
/« H/ 

/« «/ 

CALL OPEH<.<rT$flUT,OUTPUT$PTR,yRITE$HB&E,0, .STATUS); 
CALL FILE$EJai!QR<STATUS, DUTPUTSPTR^TRUE); 
STATUS = PATH(IHPUTSPTR,.}«a)HDR.HArffSLEH); 
«QDHDR.HAr!ESLEK = 6i 
m UHILE riODHDR.HAr!E<nDDHDR.HAnESLEH-l) = 0; 

ilQKIDR.HAHESLEK = fiflDHDR.MARESLEH - l; 

im; 

fiODHDR.LEHSTH = ttODHDR. HAfJE$LEH + ki 
nODHDR.TYPECnO&HDR.HAnESLEH+M) = r, /« TRH I & k/ 



OUTPUT HD0ULE HEADER RECORD 

M/ 

CftLL QUTSRECBR&C.RBDHDR); 

/« W 

/« flSSElSiLE ftHD OUTPUT CQKTEHT RECORD(S) R/ 

BUFFERSSIZE ^ flERCK - .HEflORY i 

COKTEKT.TYPE = CQHTEHTSTYPE; 

CQHTEKT.SEC$IO = ftBSSSES; 

IPTR = o; 

i3UT = O; /H SET BEGISHIHS MftLlff FOR OUTPUT POINTER »/ 

RECQRD$PTR = «; 

EHDSREC = FMSE; /h RESET EKO OF BIN FILE FLAG a/ 

DQ yHILE HOT EHDSREC; 

/H IE f^E AT THE PidHHIHS IT h BIH RECORD «/ 
RECDRDS^TR = «; /« RESET BIK KCORD OFFSET «/ 
BIH$BASE = .IBUF +IPTR; /« UPDATE EASE OF BIH RECORD STRUCTURE «/ 
DQ IN = 1 TO 2; /H DUfiHY LOOP TD ADVAHCE POIHTER IS HERE k/ 

/H TO INSURE THAT A HEU RECORD IS mm INTO «/ 
/5« IBUF IF A BIN RECDR!) ODS m ft TRACK «/ 

/k soundly m/ 

iuhk = cetshext$binsbyte; 
ehd; 
if (rle»:=bihsrcd,leksth> =^ d theh 

ehdsrec = true; 
recqrdsaddress = bihrcd.addr; 
cbhteht.addr = recqrdsaddress ♦ recqrdsptr. 

DO IK = 1 TO 2; 

JUHK = CETSNEXTSBIKSBYTE; 
END; 

/« R/ 

DO mill RLEK <> ; 

/H PROCESS BINARY RECIBJDS UNTIL a/ 
/» A RECORD UITH A LENGTH FIELD «/ 
/H OF ZERO IS FOUND k/ 
/» 11/ 

/«« TRANSFER DATA TD THE OUTPUT BUFFER W 

DQ UHILE RLEH (> AND OUT <= ^FERSSIZE - 2; 
CONTENT. DAK OUT) = GETSNEXTSBIHSBYTE; 
OUT = OUT + i; 

RECDRDSPTR = RECDRDSPTR + 1; 
RLEN = i^EN - l; 

end; 

/« «E HAVE JSiACHED THE END OF THE k/ 
/« INPUT OR OUTPUT BUFFER R/ 

IF OUT >= BUFFERSSIZE - 2 THEN 

do; /« IT UAS THE END OF THE IWTPUT BUFFER «/ 
CONTENT. LENGTH = OUT * M; 
BUT = o; 

CALL QUTSRECDRD(.l1EnORY>; 
CONTENT. ADDR = RECQRDSADDRESS + RECUDSPTR; /h UPDATE «/ 

/fi BASE ffiVDRESS FOR NEXT RECORD «/ 

end; 

/is S/ 



IF RLEK = THEN 

DO; /« EHD QF IHPUT DftTft IS THIS BUFFER «/ 
IF QOT > $ AMD RLEH =:= THEH 
do; /k flush ft PftRTIAL ISCD8& k/ 
CDHTEHT.LEHeTH = l8iT + M; 
OUT = 0; 

Cfta IWT$RECQRI>( JEfiORY); 
EH&; 

ehd; 

EHD; /« EBB Iff REftD EIKftRV RECORD LOOP «/ 

ehd; 

IHITIftlIZE, ASSEltBLE* ftHD 
OUTPUT rSKHJlE EHD RECORD 

nO&EH&.RECSTYPE = HflDEHDSTYPE; 
BO&EHD.LEJ^TH - 5; 
f!B&EHD-TYP€ = i\ 
RODEHD.SECSIO = d; 

flQDEHD.l^FSET = RECDRDSADDOSi /« SET Tf^HSFER ftDBfESS k/ 
IF START TICH 
ItODEHfi. OFFSET = STARTSVALUE; /h USER SPJXIFIED ST^T A0?>RESS «/ 

CALL m\%mmuMKm)i 

/K IHITIALIZE, ASSEflBLE. fm «/ 
/« OUTPUT TIC K/ 

/H nODULE EHD DF FILE fECDRD »/ 
/^ «/ 

HflDEQF.TYPE = EOFSTYPE; 

HQ&EQF.LEHeiH = 1; 

CALL ffllT$fa:CBRD(.HD0Eir>; 

CALL CLDSE<ftFTSIH,. STATUS); 

CALL FILESERRORCSTATUS, IHP«T$PTR, TRUE) ; 

CALL CLQSE^ff TSIRIT , . STATUS) ; 

CALL FILE$EH?QR<STATUS, QUTPUTSPTRJRUE); 

CALL EXIT; 

EHD; 

EOF 



CO: 
DQ; 

DECLARE yERSIOH$LEyEL LITERftlLy '^2H', 
EOITSLEOEL LITERl^Y 'lOH'; 

SECLfiRE Uimim <«) mE mU (yERSIOH$LEVEL.E&IT$LEyEL); 



SIHCLU&E (:F2 
§I«CLm>E (:F2 
/i^SHDLISTK/ 



SIHCLUIS 
^IHCLODE 
SIKCLU&E 
SINCLUDE 
SIHCLUBE 
SIKCLIM 
SIHCLUDE 
$IHCLtM)E 
SIHCLUDE 
SIHCLUDE 
SIHCLUDE 
SIKCIU&E 
SIHCLUDE 
SIHCLUDE 
SIHCLUDE 
SlIST 



CPYRT5.HDT> 

CBHHDH.LIT) 

CHftR.lIT) 

DPEH.LIT) 

i?EftD.P£K) 

imiE. PEX> 

LIMD.PEX) 

RESCftH.PEK) 

EXIT.PEX) 

DLiniT.PEX) 

DBLftSK.PEX) 

FWPER.PEX) 

leiCK.PEX) 

SES.reX) 

FERRll.PEX) 

RDSHQH.PEX) 



DECLARE BUFFER(128) BYTE; 

DECLARE DEEUe BQQLEAH; 

DECLARE BUFFERSPTR ADDRESS, CHAR BASED BUFFERSPTR BYTE; 

DECLAIM (PATHHARESPTR, ACTUAL, STATUS. EMTRY^RE'rSU) ADDRESS; 

BEeiHHIiC W PRKRAft. 

M-K-K -K-fi-H-M-H -«-K-fi-K-K -S-M-H-K-H ~« -K-K -M -K -H-K- H-K-K -K-K-K 



STACKPTR = VEmK; 

aUTPUKOFCH) = OFCH; /k EHABLE CQHSQLE IKTERRUPTS AHD 1 «/ 

ehable; 

OUTPUT(OFDH) =^ 20H; /K SEKD EHD QF IHTERRUPT CrififiAHD «/ 

BUFFERSPTR = .(':CI: '); 

CALL RESCAH<1.. STATUS); 

IF STATUS = TIO 

DQ; 

CALL READd, . BUFFER, LEN6TH<BUFFER), , ACTUAL, .STATUS); 

CALL FILESERROR(STATUS,BUFFERSPTR,TRUE); 
EHD; 
DO foremer; 

CALL yRITE<^,.( '-'),!,. STATUS); 

CALL READd , .BUFFER,LENeTH<BOFFER>, . ACTUAL, . STATUS) ; 

CALL FILE«;RRflR< STATUS, BUFFERSPTR, TRUE) ; 

BUFFER (ACTUAL) = CR; 

CALL FORCESUPPER< . BUFFER) ; 

BUFFERSPTR = DEBLAHK(. BUFFER); 

IF CHAR = ';' THEH CHAR = CR; 

IF CHAR (> CR THEH 

DO; 
/s NDU CHECK FDR DEBU6 RODE (PATHKARE PRECEDED BY 'DEBUS' «/ 



DEBUG = FALSE; /R ASSUHE HORHAL CASE, HOT DEBUeeiHS «/ 

IF SE8( . ( 'DEBUe ') , BUFFEJ?$PTR, 5) 

nm (DainiT<BUFFER$PTR)=BUFFER$PTR+5) TitEH 

DO; 

fJUFFERSPTR = DEBlAHK(&Elir!IT(BUFF£R$P7«+5)); 

DEBUG - TRyE, 

IF CHAR = CR THEH CALL HDHITQR; 

PATHHAfiESPTR = BUFFERSPTR; 
B11FFER$PTR = &ainiT(0EeiAlflC<BlffFER$PTR)}; 
CAll RESCft«(L .STATUS); 

CALL REA&(L . BUFFER, BUFFER$PTR-. BUFFER, JCTUAL, .STATUS); 
CALL Fra?CE$UPPER<PATHHAnE$PTR); 
IF DEBUe THEH REISU = 2; ELSE RETSy = 1; 
CALL LBAD(PATHHAfiE$PTR,0,RETSy, .EHTRY, . STATUS); 
CALL FILE$ERRDR<STATUS,PATffilArfE$PTR,FALSC); 
CALL REflDCl, .BUFFER,LEH6TH(BUFFER)> .ACTUAL, . STATUS); 
EKD, 

ehd; 
ehd; 



EOF 



COPY: 
DO; 

&EClAi?E yERSIflH$LEVEL LITERftLiY '0»% 
EDITSLEMEl LITERALLY 'WH'; 

DECLftJE yEmra (K) BVTE OftTft (yERSIfiHSLEyEL.EDITSLEyEL); 

/« 

THIS OSIDH OF COPY HAS BEEK HflDIFIED fO DO BULK COPIES. 

SIHCLE mm. COPIES, COPY ATTRIBUTES, AND OTHER ASSORTED 

yOHDERFIR TKIH€S. 
8/ 



SIHCLtM>E (:F2: 
SIHCLISJE iJ2 
/KSHQQSTH/ 



$IHCIUDE 


(:F2: 


SIHCLUDE 


<:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


<:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLIM)E 


C:F2: 


SIHCLUDE 


<:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


C:F2: 


SIHCLtM 


iJ2: 


SIHCL?fl)E 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLIM 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLUDE 


C:F2: 


$IHCLIK)E 


(:F2: 


SIHCLUDE 


(:F2: 


SIHCLIM 


<:F2: 


SIHCLUDE 


(:F2: 


SIHCLWE 


(:F2: 


SIHCLUDE 


(:F2: 


$IHCLIM)E 


<:F2: 



CPYRT5.DTA> 
CPYRT5.H0T> 

SEEK. LIT) 

C[»inQH.LIT> 

AnRIB.LIT) 

GETLAB.PEX) 

CHKLftB.PEX) 

flASCn.PEX) 

DTEe.PEX) 

eETDSK.PEK) 

Iff^TH.PEX) 

IFEH.LIT) 

E^OR.LIT) 

UHPATH.PEX) 

SERROR.PEX) 

DEVICE.LIT) 

SEEK.PEX) 

letCK. PEX) 

OreK.PEX) 

CHAR. LIT) 

ATTRIB.reX) 

READ.PEX) 

yRITE.PEX) 

CLflSE.PEX) 

REHAfiE.PEX) 

EXIT .PEX) 

DBLAHK.PEX) 

yDELin.PEX) 

FUPPER.PEX) 

FERRBR.PEX) 

S£8,P£K> 

UCASE.PEX) 



SLIST 



DECLARE TARSETSttDDE BYTE; /« UPDATE OR WRITE «/ 

DECLARE ?Hm> BYTE; /« !filLDS IHTERHAL FILEWAitE «/ 

DECLINE <BirFER$SIZE,SIZE> ADDRESS; /« SIZE OF BUFFER ^^Eb. TOTAL SIZE «/ 

DECL^ BUFFER<128) BYTE; /« IKPUT SUFFER FUR READ «/ 

DECLARE SUITCHSPTR ADDRESS. CHAR BASED SUITC^PTR BYTE; /a PTR TO SyiTCHES OH IHPUT k/ 

DECLARE PTR ADDRESS AT (.SUITCHSPTR); /« PTR USED IH C0H »/ 

DECLARE BUFFERSPTR ADDRESS; /« PTR TO IHPUT BUFFER «/ 

DECLARE TDSPTR ADDRESS, KEY BASED TQSPTR BYTE; /k UILL PQIMT TO KEYiHlRD "TO' IH IHPUT «/ 

DECLARE (ACTUAL, STATUS) ADDRESS; /a USED IH SYSTEM CALLS k/ 

DECL«E I byte; /« IHDEX TRIABLE «/ 



DECLARE FILESHftHEdS) BYTE; /« HDIOS EXTERNfil FILEHftHE «/ 
DECLARE ISHB SYTE; /K IH&EX DF DIRECTORY k/ 

DECLARE <ftFTH,ECHDSAFTH,DIR$ftFTM,DUI$ftFTH) ADDRESS; /« FILE AFTH, DIRECTORY AFTH k/ 
DECLARE HEXT ADDRESS; /« PTR TQ BUFFER «HICH HOLDS FILES TO BE COPIED «/ 
DECLARE FILE BASED KEKT STRUCTORE /« HEADER BLOCK FOR FEES «/ 
(QLDFILECld) BYTE, /« FILE TO BE COPIED R/ 
ATTRIB BYTE, /R ATTRIBUTES OF THE FILE «/ 
MEyFILECiO) BYTE, /k DESTIHAHOH HAflE OF FILE »/ 
flODE BYTE, /H «RITE - UPDATE k/ 
LEHeTH ADIHESS, /» LEHSTH DF FILE fi/ 
ATEDF BYTE, /« FALSE-ADD AT K6IHIH6, TRUE AT EOF k/ 
DOME BYTE, /« TRUE-IF FILE IS DDHE, Fmi-IF fiORE TO FOlLOy «/ 
BEeiH BYTE); 
DECLARE CflJERY BOQLEAH, /« QUERY SyiTCH k/ 

FIRST BiSLEAH, /» USED BY LABEL CHECOHe a/ 
SYSTEft HSJLEAK, /« COPY SYSTEH FILES? «/ 
NDKSVSTEH 8DDLEAH, /a COPY HflHSYSTEH FILES? «/ 
COPYSAT BQOLEAH, /k COPY AHRIEUTES? «/ 
HDSeODD BOOLEAH, /« IHTERW^L LOOP C0HDITIDHAL a/ 
THESBHE BOOLEAH, /« USED BY (RJERY IH UILDSCARD «/ 
SA8E BOiLEAK, /« USED IH UILDCARD FOR AUTOHATIC SIHgLESDRiyE k/ 
PRIHT BlfflLEAH, /R PRIHT Ti€ BUFFER? »/ 
AI1BI6 BOOLEAH, /k IS UILDCARD HAJIE i=S1BICU0US? h/ 
BRIO BOOLEAH, /a AUTHATICALLY DELETE FILE IF EXISTS «/ 
CDHCAT BOOLEAH; /« CDHCATEHATIDH OR COPY? «/ 
DECLARE SIHSLESI^iyE BOOLEAH PUBLIC; /« SIHGLESDRiyE? «/ 
DECLARE TEnP(128> BYTE; /« TEMPORARY BUFFER «/ 

DECLARE ATTRIBSLISTCK) BYTE DATA<1,2,M); /s USED TO SET ATTRIBUTES h/ 
DECLARE PASTSBYTE$LEHCTH ADDRESS, /s USED TO SEEK TO SPOT IH FILE «/ 
PASTSBLKSLEHeiH ADDRESS; /« USED TO SEEK TO BLOCK IH FILE R/ 
DECLARE FILESCDUHT BYTE; /« HUJ1BER DF FILES IH BUFFER R/ 
DECLARE SOURCE(iO) BYTE; /» IHTERHAL SOURCE HAfiE k/ 
DECLARE DUTPUKIO) BYTE; /« IHTERHAL OUTPUT m\£ k/ 
DECLARE DIR$FILE<K> BYTE IHITIAL (':FX:ISIS.&IR',0); 
DECLARE IH$LAffiL<^) BYTE; /« LABEL OF SOURCE DISKETTE a/ 
DECLARE QUT^ABELCR) BYTE; /« LABR OF OUTPUT DISKETTE n/ 
DECLARE £C¥mniim) BYTE IHITIAL CrXB:"); 
DECLARE <BYTE$TEfiP,BLK$TEKP) ADDRESS; 
DECLARE «RITE$PROT£CT$FDUHD BOOLEAH; /n IF AH OUTPUT FILE IS URITE PROTECTED «/ 



LOOKUP: 

PRQCED18S<FILESPTR,HDSRETURH) ISSLEAH; 

/M FILEa=»TR - PTR TQ A EXTERHAL FILE HAfti: 

HO$R£TURH - BOOLEAH, TO FIHD OUT yHETHER TO PRIHT DELETE RESSACE 



RETURHS TRUE - IF FILE ^S HOT EXIST, 

OR IT CAH BE DELETED (HOSRETURH = TRUE) 
FALSE - DTOUISE «/ 

DECL«?E FILESPTR ADDRESS; 
DECLARE i3$RETURH BQQLEM; 



CALL REH^E (FILE$PTR, FILESPTR, . STATUS) ; 
IF STATUS <> HOSSUCHSFILE TO 
dq; 



IF STATUS = yRITEJPRQTECT THEH 
DO; 
IF CDHCftl Tt€H RETilRH FALSE; 

ELSE un\m Tf?uE; 
EHf>; 

IF STATUS <> Rl«.TI&EFIJtEB THEH 

CALL SSFILESE8RQJ?<STftT«S,FILE$Fr8); 

IF HflSRETURH TfSH RETURH F6LSE; 

CALL *»JITE«>,FILESPTR,Ul«LIHIT<FILE$PTR) - FILE SPTR, .STATUS); 

CALL «RirE(0..<' FILE ALREADY EXISTS ',CR,LF, 'DELETE? 0,3<»,. STATUS); 

CALL READ<1, .TEfiP,128, .W^TUAL,. STATUS); 

IF UPPERCASE<TE«P<0)) (> 'V THEH RETURN FALSE; 

£HD; 
RETORH TRUE; 
e«d; 



filesprikt: 
procedure; 

/n PRIHTS: <SQURCE> TQ <flUTPUT> h/ 

CALL UHPATH(.FILE.DLDFILE,.TEHP>; 

CALL URITE<«. .TOtP,yDEaHIT<.TERP)-.TE«P> .STATUS); 

CALL yRlTE<0,.(' TQ ')> 4, .STATUS); 

CALL UKPATHC . FILE . HEUFILE , . TEHP); 

CALL URITE(0, .TE»!P,«DELIRIT(.TEflP)-.T£«P, .STATUS); 



END; 



ARRAHCE: 
PROCEDURE; 

/« EITHER GETS THE LABEL Iff THE DISKETTE (FIRST = TRUE), 
BR IF IT f^READY HAS IT, IT CHECKS IT ACAIHST THE CURRENT 
LABEL Tfl SEE IF THEY HATCH a/ 

IF FIRST TffiH 
DB; 

CALL GET$&ISK<2); 

CALL eET$LABEL( . DUTSLABEL,QUTPUT <0) ) ; 

FIRST = F<y.SE; 

ehd; 

ELSE 

CALL CHECK$LABEL< . QUT^ABEL , OUTPUT m.2)l 

£H0; 



USTTF^SSFFFe- 



PROCEDUIE; 

/K AFTER TIC BUFFER HAS ?£Bi FILLED BY SlICCESSIME CALLS Tfl 
READSBUFFER, THIS mUVl TRANSFERS ALL THE FILES THAT IT 
CAN IB im APPROPRIATE WTPUT DEUICE. IT CI«CKS TO SEE IF 
THE fflJTRIT FILE ALREADY EXISTS, AKD yHETHER IT 
SHOULD BE DELETED <DDHE AUTtBtATICALLY «ITH U OR B SUITCHES) »/ 

DECLARE COPY BOQLEftH; /m WflHT THIS FHI? k/ 



jiEXT = Mnm; 

m «HILE FILESCDUHT <> <H 
COPY = TRUE; 

CALL OHPATHC . FILE. HEiTILE. JEESHAHE); 

/K CHECK IF OUTPUT FILE EXISTS. AHI) DETERHIHE OHETHER TO OieyRITE k/ 
IF HOT BRIEF AHD FILE.HQDE <> UPDATE^fiflDE 
AKD FILE.HEUFILECd) (= FSDEM THEH 
COPY = LK»{UP(.FILE§HAHE,FALSE); 

IF COPY imn 

IF (HOT FILE.ATEIF) M SIH6LE$l?Riy£ THEH 

dq; 

CALL DPE»< . DUT$AFTH, . FILE$HArff:> FILE. ffODE, «. . STATUS) ; 
IF STATUS <> imiESPROTECT m COHCAT THEH 
CALL SSFILE$ERRQR( STATUS. JILESKAflE); 
ELSE DO; 

CALL FILE$ERROR<STATUS, .FILESHAHE,FALS£); 
COPY = FALSE; 

yRITE$PROTECT$FOUM& = TRUE; 
END; 
EHD; 

IF tm THEH 
DO; 

IF FILE.ATEQF AHD (FILE.HEyFILE<0) <= FSDEU) AHD <SIH6LE$DRIME) THEH 

do; 

CALL SEEi:(QUT^TM,SEEK$ABS, .BLK$TEHP, .&YTE$TEHP, .STATUS); 
CAR S$FiLE$ERRQR(STATUS, . FXLESHAHE) ; 

EHD; 
CALL yRITE(GUT$AFTH,.FILE.BECIH,FILE.LEHCTH, .STATUS); 
CSS.L SSFILE$ERROR(STATUS, .FILESHAIfE); 
IF (FILE.DOHE AHD HOT COHCAT) OR 

(COHCAT AHD PTR >= TD$PTR AMD (FILE$CQUHT = 1» !M? 
SIHCLE$DRIUE WEM 

do; 

IF COHCAT THEH 

CALL SEEK<liT$AFTH>SEEIJ$i?EIURH, .BLK$TEaP> .BYT£$TEP. . STATUS); 
CALL CLDSE<OUT$AFTH,. STATUS); 
CALL S$FILESEJ8?0R(STATUS> . FILESHARE) ; 
EHD; 

IF FILE.DQHE THEH 
do; 

IF COPYSAT AHD (FILE.KEUFILIE<0) <= FSDEM) TO /« COPY ATTRIBUTES k/ 

DO I = TO LAST(ATTRIB$LIST); 

if (file.attrib ahd attrib0liski)) <> theh 
do; 



CALL SSFILE$ERRQ8<STArUS. .FILE$HA}fE); 
ehd; 

IF CQHCftT THEH 

CALL yglTECO, . ( ^APPEHDES ••) > ^, . STATUS) ; 

ELSE 

CALL yROE (0, . < 'CBFIEf) ') , 7, . STftlUS); 
CALL file?^riht; 

CALL ymE<0. .<CRAF>. 2. .STATUS); 
EHD; 

ELSE /R &0 HOT COPY THIS FILE k/ 

Da; 

IF CQHCAT THEH 
FTR = TflSPTt; 
ELSE 

/a IF FILE IS SPLIT, HAKE SUf?E HOT IB PUW SECOH& PART »/ 
IF HOT FILE.DQHE THEH 
DQ; 

ISHO = imQ f i; 

FILE$CQUHT.PASTSB¥rE$LEHeTH.PAST$BLK$LEHSTH = 0; 
8ETURK; 
EHD; 
EHD; 

m.m = .FiLE.BEeiH + file, length; 

FILESC0UHT = FILE$CKJNT - 1; 

ehd; 

READSBUFFER: 

PROCEDURE EBOLEAH; 

/a READS A FILE IHTQ THE BUFFER AHD FILLS l«' THE HEADER ElOCK »/ 

DECLARE ST^T$ADD ADDRESS; 

/» ASSUMES THAT THE HEADER HAS BEEH FILLED UITH DLD AHD HEU FILE HARES n/ 



FILES€DUHT=FILESCDUHT + 1; 

EilJFFER$SIZE = BUFFERSSIZE - 26i /k LEH6IH OF FILE STRUCTURE «/ 

CALL lfllPATH( . FILE . DLDFILE* . FILESHAHE) ; 

IF FILE.flLDFILE<0) = TIDEy ffl? FILE.BLDFILE<0) = UIM^ THEH 

dq; 

IF FILE.QLDFILE(O) = UIDEU THEH ECH|}$FILE<1) = 'U'; 

ELSE ECHQ$FILEa) = 'T'; 
CALL QPEHC.ECHQSAFTH, .£eHQ$FILE>yRrrE§fiODE,0, .STATUS); 
CALL OPEH< . AFTH, .FILESHAHE^READSRODE.ECHQSAFTH, .STAM); 
EHD; 
ELSE 

CALL OPEH(.AFTH,.FILE$HAHE,READ$nODE,0> .STATUS); 
CALL S$FILESERRDR(STATUS, .FILESHAHE); 

FiLE.LEmH = a; 

ACTUAL ==1; 



/K IF ¥mi QF THE FILE HAS BEEH READ ALEADY. THOI SttK TO THAT PfilHT k/ 
IF PAST$BYTESLEHSTH <> OR PAST$BLK$LEHC:T» <> TKH 
mi 
IF FILE.HEyFILE<^) <= FS)EV THEK FIlE.nDDE = Wmmmm 
FILE.ATEQF = TRUE; 
IF FIIE.OIDFILE(O) <~ FS)£M THEH 
8B; 

CALL SEEK (AFTH^SEERSABS, .PAST$llK$LEHCTH,.PAST$ByTE§LEHeTH, .STATUS); 
CALL S$FILESOf80R (STATUS,. FILE$HAI!E); 

mm 
mm 

/^ KWmn THE READ, STOP UHEH ACTUAL IS ^ a/ 
DB yHILE (ACTUAL <> 0) AMD (BUFFERSSIZF. <> 0); 

CM.L READ<AFTH,START$AD&,BUFFER$SIZE, .ACTUAL, . STATUS); 

CALL SSFILESERRDR<STATUS, .FILESHARE); 

E:UFFER$SIZE=BUFFER$SIZ£ - ACTUAL; 

FILE.LEMCTH = ACTUAL + FILE. LENGTH; 

STARTSADD = STARTfADD + ACTUAL; 

ehd; 

IF FiLE.flLDFILE<0) = UXDEM OR FILE.OLDFILECO) = TIDEy TICK 

CALL CLDSE(ECH0$AFTH,. STATUS); 
CALL a OSECAFTH,. STATUS); 
CALL SSFHESERRQR (STATUS,. FILESHARE); 
IF (PASTSBYTESLEH6TH <> OR PAST$BLK$LENeTH (> 0) AHD (HOT COHCAT) THEH 

do; 
miSTEflP = PASTSBYTESLEHeTH; 
BLKSTOfP = PAST$BLiCSLEHeTH; 

/K THIS IfEAHS THE CSfPLETE FILE mUW HDT FIT IH TIC BtTFER a/ 
IF BUFFER§SIZE = * THEH 

OB; 

PASTSBLKSLEHCTH = PASTSBLK^LEHCTH + SHR<PASTSByTE$LEH€TH,7); 

PAST$BYTE$LEHeTH = (PASTSBYTESLEKCTH HDD 128) + FILE.LEHCTH; 

FILE.DOHE = FALSE; 

RETURH TRUE; 

imi 

/>: TfC FILE FITS IH THE BUFFER s/ 
PAST§BLKSLEK6TH,PASTSBYT£SLEHeTH = 0; 
FILE. SOKE = TRUE; 
HEX! = .FILE.BECIH * FILE.LEHeiM; 
RETUfOI FALSE; 

ehd; 



UILDSCARD: 
PROCEDURE; 
DECLARE DISK BYTE; 
DECLARE (FmSHED,HQ$FILE) BOOLEAN; 

/« THIS PROCEDURE IS CALLED UHEH THE USEt? IS HOT SOIHC TO 
COHCATEHATE AHY FILES TOCETHER. IT UILL COPY DHE, OR mm 
FILES ffm A DEUICE, AND SEE THAT THEY ARE URITTEH TO THE 
PRDffiR OUTPUT KnCl. IF THE IHPUT DEUICE IS A DISK, THEH 
UILDSCARD DPEHS THE DIRECTORY AHD SEARCHES FOR ALL OCCUREHCES 

nr THF PftTH«ftHF TN THF BTBFnTnS»Y THF J nnPV\ mfPV fm THF 



FQLLJ^IHe COHDITIDHS. 1) IF UE HftUE REACHED THE ED DF THE 
DI8ECTDRy> IH UHICH CASE UE ARE FIHISIIE&. 2) IF IVE BUFFER 
IS FILLED. IN UHICH CASE, ttE UftNT TO WRITE THE BUFFER Ml AHD 
RETWJK TQ READ SDHEHORE. 3) IF THE BUFFER IS FILLED, AHD UE HA^E 
HOT READ ALL OF A FILE, IH THIS CASE UE «AHT TO READ BUT TIC BUFFER 
AHD THEH FINISH READING THE FILE AND APPEND IT TO THE MREADY 
COPIED PORTION CF im. FILE. THIS PROCEDURE ALSO CHECKS TQ SEE 
IF THE OUTPUT FILE IS EffilAL TQ THE SOURCE FILE, IH MTCH CASE 
IT AUTOnATICALLV GOES INTO SINGLE DRIVE »DDE. a/ 

I$NQ = o; 

FINISHED, HO$FILE,SAflE = TRUE; 

CALL FILESERRQR(UPATH( .BUFFER, .SOURCE), . BIf F£R,TRUE); 
STATUS = yPATH(BUFFER$PTR,. OUTPUT); 
IF STATUS <> HULL$FILENAttE THEN 

CALL FILESERROR<STATUS, Biff FERSPTR, TRUE); 

IF OUTPUKl) == THEN /» FILEH<^E = NULL THEN SET TQ m.h w/ 
DO I = 1 TO «»; 
QUTPUT(I) = 'K'; 
END; 

/s« TEST IIASKS FOR SINGLE$DRIUE,AHBIg, AND ERROR «/ 
DO I = D TO 1; 

IF SIMJRCECI) = '?' OR SOURCEd) = 'K' THEN AttBIG = TJRIE; 
ELSE IF SURCE(I) <> OUTPUT(I) AND OUTPUTd) <> 'a' 
AND QUTPUTd) <> '?' THEN SAHE = FALSE; 
IF <SffilCE<I) = '?' tm CQUTPUKI) O '?' AND IRITPUKI) <> '«')) ffl? 
< SOURCEd) = 'H' hm OUTPUT(I) <> "»') OR 
< SOURCEd) = AND QUTPUT(I) = "?') THEN 

do; 

/a FILE RASK EJSfflR k/ 

CALL URITE<$,.('FILE riASK ERROR ',CR,LF),1?, .STATUS); 
CALL ekit; 
end; 
end; 

MR$FILE(2) = (DISK := SflURCE(0» + 'H'i 
SI1IRCE<«) = o; 

SINGLESDRIME = SINGLE$DRIVE OR SA»E; 
IF SINGLESDRIVE THEN 

DO; 

CALL 6ET§DISK<1); 

CALL GETSLABEL<.IH$LABEL,DISK); 

end; 



DQlKilLE I^ <> 201; 

IF DISK <= F5DEU AND (I$HD = OR SINGLESDRM) TJ€N 
DO; 

CALL DPEN(.DIR$AFTN, .DIRSFILE,READ$i1QDE,0, .STATUS); 
CAU. SSFILESERRDR<STATUS, .DIRSFILE); 

end; 
m%m> ^ TRUE; 
DO UHILE N0$GQQD; 

TF ftUFrFSSST7f \ 160 IWU 



Mi 

IF DISK <= f^B imU 

I$KO = DnE8(DIR$!^FTH.. SOURCE, I»lfl,.FILE>i 
ELSE dd; 

CALL fiDyE$fiSCn(.FILE.BLUF:CLE<l)..<0,«.0,0.^,0,'&,0,0>,'^); 

FILE.ftTTRIB = $; 

ehd; 

IF I$HS " 201 THEN 

laiseDSD == FftiSE; 

IF FILESCDUHT > $ MJ PRINT « TRUE; 

ehb; 

ELSE 

DO; 

IF <HOT fmK> m 

(((FDR«AT$ftTTRBUTE m FILE.mRIB>=^) ftHD 
((HflHSYSTER ftH& 

((SVSTEffiiflTTRI&yiE ftHD FILE.ftTTRIB)=0» OR 

(SvsTEfi am 

((SmEflSATTRIBUTE AND FIlE.ATTRIg)<>0»» THEN 

db; 

FILE.OLDFILE($>=Dm; 
FILE.ATEDF = FftlSE; 
FILE. RODE = TAReEiaiDDE; 

IF (FILE.NEyFILE<0> := OUTPUT(0» (== F^V Tt€» 
DQ I = 1 TQ 1i 

IF <FILE.NEyF:i:LE<I):-OUTPUTa)) = '?' li 
OUTPUTd) == '»' THEN 
FILE.HEUJlLEd) = FIlE.QliriLE<I>; 

im; 

ELSE CALL «QyESftSCn(.FILE.NE«FILE<l>>.<§,0,0,0,0,*>0*0.0),«J); 

THESQNE = TRUE; 

NQSFILE = FALSE; 

IF 8UERY AND FINISHfiD THEN /R PEIf ORit 8UERY s/ 

DO; 

CALL URITE<0,.</COPY 0,5>.STATOS); 

CALL FILESPRINT; 

CALL SRITECO^.C? '). 2, .STATUS); 

CALL READd, . TEfiP, 128. . ACTUAL, .STATUS); 

IF IWERCASE<TEtfP<0)) <> 'V TIEN THESIBiE = FALSE; 

END; 

FINISHED = TRUE, 
IF TICSOHE THEN 

IF (BilNT := READSEUFFER) THEN 

DO; 

ISNO = I$NQ -l; 

FINISHED = FAl.SE; 

HD$600D = FALSE; 

end; 



END; 



END; 



END; 

ELSE DO; /« gOFFER$SIZE < lOO, SO DUHP BUFFER n/ 

KSSQDOD = false; 

PRINT = TRUE; 



IF FIHI^ED AND DISH > FSDEV THEH IfiHlt = 201; 
EK0; /« milE W 

If mm <= F5&Ey m mm = o qr siHaE$DRM> mm 
ob; 

Cftll CLDSE<DIf?$ftFTH,. STATUS); 

CALL SSFILE$ERRQR(STATUS, .DIRS^IIE); 

bib; 

IF PRIKT THEH 

m; 

/K GET &ISK «/ 

IF SIHgLESDRIME THEH CALL W?RftHgE; 

cm.1 uritesbuffer; 
PRiKT = false; 

/u m DISK w 

IF SIK6LE$DRIVE AHD (IS«Q <> 201) mil CALL CHECK$LABEL(.IH$LABEL.DISK,i); 

BIFFERSSIZE = SIZE; 
HEXT = .herqry; 

ehd; 
mr, /M iM[L£ »/ 

IF HB$FILE THEH CALL S$FILE^RRDR<HD$SUCH$FILE.. BUFFER); 

IF SIHgLESDRIME THEK CALL GET$&ISK(0); 

EHD; 



CQH: 

procedure; 

DECLARE (ffilHSEXIST. CHECK) HIQLEAH; 

/a THIS PROCEDURE PERFORHS THE QPERATIDH QF COHCATEHATIOH. 
IF TIERE IS A ^ ' IH THE CQJtRAHD LIHE, IHEH THIS PRDCEDUREIS 
INMOKED. IT FIRST CHECKS IB SEE IF THE SOURCE FILE IS EeUAL 
TO THf: OUTPUT FILE, AHD THEK TO SEE IF THERE ARE AHY UILDCARD 
CHARACTERS IH THE LIKE. THEK IT CQES THROUGH THE IHPUT BUFFER 
FILE BY FILE AHD LIPIDS THE BUFFER TILL THE BUFFER IS FILLED, OR 
THERE ARE HO HORE FILES TO COHCATEHATE. «/ 

CHECK = FALSE; 

PTR = DEIlftHK<. BUFFER); 

CALL FILESERROR<yPATH<SUFFERSPTR, . OUTPUT ).BUFFER$PTR, TRUE); 

DO UHILE PTR < TOSPTR; 

CALL FILESERRDR(«PATH<PTR, . SOURCE). PTR, TRUE); 
IF SEaC. SOURCE,. IHlTPUT,iO) THEH 
m: 



/K SOURCE FILE ESOftLS DESTIMATMH FILE »/ 

Cmi «RnE(0;.< 'SOURCE FILE EflUfttS OUTPUT FILE ERR0R'.CR,LF>>38>. STATUS); 

CM.L EXIT; 

ehd; 
PIR = &EBLAH}«DEBLflHK(yDEURIT(PTR))+i); 

EHi>; 
MTCHSPTR = .BUFFER; 
ODUHILECHftR <> CR; 

IF CHAR = '?' OR CHftR = '«' THEH 

dd; 

/M WILDCARD DELMTER IK CBMCATEKATE m/ 

CALL «RITE<0,.<'tfILDCARl> DELIHITERS 0URIH6 C0HCATEHATE%a?,LF),40,. STATUS); 

CALL Exn; 

SyiTCH$PTR = SyiTCHSPTR 4 i; 

mm 

PTR= BEBLAHKC. BUFFER); 

FILE.AT^QF = FALSE; 

CQPySAT = FALSE; 

IF SIHeLE$&RiyE THEH CALL CETSSISKd); 

m mJLE PTR < TD$PT8; 

HaH$ExiST = false; 

CALL SSFILESERRQRCyPATHCPTR, .FILE. BLBFILE) , PTR) ; 
IF FILE.QL&FILE<0) < F50Ey THEH 

IF <HOH$EKIST := LnOKUP<PTR>TRUE)) iW FILE$COUHT > THEH 
PRIHI = TRUE; 

IF NOT HOHSEKIST THEH 
DO; 

CALL nOUESASCIK.FILE.HSyFILE, .QUTPilT.lO); 
FILE.HDE = TAReETSHODE; 

IF HOT ( PRIHT :^ READ§BUFFER) THEH 

m; 

PTR = &EBLAKK(DEeLAKK(IKJELH1IT<PTR))+l); 
IF PTR >= TOSPTR THEH PRIHT = TRUE; 
EHD; 
ELSE 

do; 

PRIHT = TRUE; 
CHECK = TRUE; 
CALL CET$LABEL( .IHSLABEL,FILE.[a.!>FILE<0)); 

ED; 
IF OUTPUT <0) <= F5i>Ey THEH TARSETSrilM = UPDATE$HO&E; 
EH&; 
IF PRIHT Tl€H 

m.i 



IF SIMOlESDRIUE THEH call ftRRftHGE; 

CALL imfESBUFFEJ?; 

POHT - Fffl.SE; 

IF SIHaESORiyE m (PTR < TQ$PT8> 
mt^ (HOT HDHSEKIST) THEH 
00; 
IF CHECK THEH 

&q; 

CALL CHECJ(SLftgEL<.IHSLftECL,FILE.ffi.DFILE(«.l>; 
CHECK = FftLSE; 

im; 

ELSE CALL CETSDISKd); 
EHO; 

EUFFE1?$SIZE = SIZE; 

HEX! = Mmm; 
ehd; 

FILE.ftTECr = TRUE; 

IF HQHSEXIST THEH CALL S$FILE^RRnR<HDSSUCHSFILE,PTI?); 
EKD; /« HHILE «/ 

IF SiJ^lESDRIUE THEM CALL CETSDISKCO); 
EH0; 



«-K~K -JJ-K- K-K-H -H-K- K-«~K -«-K~K-K-K-K-R- S-K-K -«-«•- H~K-K -S-K-K 

BECIHHIKS IF KAIH PROSRAfl 

M-K-H -K-K-K-K-K -S-K-K-K-K -K~K- H-K ~B -«--K~K-K-»K-M-K-K~}5-M -»-K -K S/ 

AnBIC,«RITES^RDTECT$FDUHD.PRIHT,CQPV$AT,BRIEF,SIHGLE$DRIUE,(KJERYiCOHCftT = FALSE; 

SYSTEB, FIRST, iffiHSYSTEH = TRUE; 

FILESCOUHT=0; 

TARgETSHQDE = yRITE$HDDE; 

PflST$BLK$LEH6TH,BYTE$TERP,BLK$IEflP,PAST$BYTESLEHeTH = 0; 

CALL READ(l,.KrFER,LEHGTH(BUFF£R>.. ACTUAL. .STATUS); 

SUFFERCACTUAL) = CR; 

CALL FQRCE$IFreR( . BUFFER) ; 

/n 

ADVAHCE PfllHTER TQ KEY«CB?D 'TQ' ftH& CHECK IT . . . 
u/ 

TDSPTR = DEBLAHK(«DELir!IT(DEELAHK(. BUFFER))); 
IF KEY = ',' THEH COHCAT = TRUE; /a gO IHTD CBHCATEHATIOH IfflDE «/ 

m miiE KEY = '>'; 

TBSPTR = DEBLAHK(UDELIRn<DEBLAHK(TDSPTR+l))); 
EH&; 
IF SEfl<.<'TB 0>TD^TR,3) THEH 

BUFFERSPTR = 1^8LAHK(UDELiniT<TQSPTR)); 
n 9j CM I m FSFBBneaiiuAj Tnfi!i¥aTft!e.TnsPTB. iBiiri : 



BUFFE8SPJR Mi POIHTS TB THE TftJ?eET FILENftl'E STRIH€. 

ADVANCE SyiTCi^PTR BEYOHD TftRCET FILE HilHE. TO SUITCH (IF ^¥>... 

SyiTCHSPTR = 0EK.AHK(«DELMT(BUFFE»$PTR)); 

&0 yHiLE emu o cr; 

IF CHAR = 'r THEH TARGETSfiBDE = l«'DftTESf!D!)E.: 
ELSE 

IF CHAR = 'S' THEH HDHSYSTER = FALSE; 
ELSE 

IF mm = 'H' THEH SYSTEtt = FALSE; 
ELSE 

IF CH<« = 'B' THEH BRIEF = TRUE; 
ELSE 

IF CHAR = 'C THEH COPVSAT = TRUE; 
FLSE 

IF CHAR == 'P' THEH SIHGLESDRM = TRUE; 
ELSE 

IF CHAR " '8' TI€K flUERY •= TRUE; 
ELSE 
IF Cmn <> '$' THEH 

CALL FILE$ERRDR<UHRI-:aie$SyiTCH. SUITCH$PTR> TRUE) ; 
IF COHCAT am 8UERY THEH 

CALL FILESERRl»?<IHVALI0SSyHTAX, S«ITCH$P TR. TRUE) ; 
SUITCHSPTR = DEBLAHK<SyiTCH$PTR+l); 
EHD; 

IF HOKSYSTES QR HQHSYSTEH) THEH SYST£S> HQHSYSTEH = TRUE; 
8UFFERSSI2E.SIZE = REHCK - .ffffiflRY; 
«EXT = .JCflQRY; 
IF CfflfCAT THEH 
m; 
IF SIH6LE$DRIUE THEH TAI^ETSilQDE = UPI)AIE§HBDE; 
CALL CQH; 
EHD; 

ELSE CM.L yiLDSCARD; 
IF yRITESPI?QT£CT$FflUHD THEH 

CALL yRITE<0, .CyRITE PROTECTED FILE EHCDUHTEfiED',CR>LF),:m, .STATUS); 
CALL EXIT; 

EHD; 



&EIETE: 

mi 

DECLARE yEmDH$lEyEL LITERALLY '^2H', 
E&ITSLEMEL LITERALLY '28H'J 

DECLARE UERSIffii <«) BYTE DATA (yERSIDHSLEMEL^EDITSLEyEL); 



SIHCLODE 


<:F2:CPYRT5.H0T) 


$IHCLU&E 


< :F2 :CPYRT5JTA> 


mmiuw 


^IHCLliDE 




F2 


COnnOK.LIT) 


$I«CLUOE 




F2 


tmi.im 


$IHCLIH>E 




F2 


EiS?QR.LIT) 


-MCimi 




F2 


ffi^H.LIT) 


$imi\M. 




F2 


OPEN.PEX? 


SIHCLUDE 




F2 


CLOSE. PEK) 


SIHCLUDE 




F2 


READ.PEX) 


$IHCLyDE 




F2 


i^ITE.PEX) 


SIHCLtl&E 




F2 


DaETE.PEX) 


$IHCLIH)E 




F2 


EXIT.PEX) 


^IHCLODE 




F2 


DOfilT-PEX) 


SIHCLUDE 




F2 


DEIAKK.PEX) 


$IHCLtM 




F2 


FIS^PER.PEX) 


$IKCLUDE 




F2 


UCASE.PEX) 


$IHCLIM>E 




F2 


6ET&SK.PEX> 


§IHCLU&£ 




F2 


ktmmju) 


iSilHCLUDE 




F2 


SERRDR.PEX) 


SIHCLUDE 




F2 


UHPATH.PEX) 


$imimi 




F2 


yPATH.PEX) 


SIHCLUDE 




F2 


BrrEQ.PEX) 


SIHCLUDE 




F2 


WDELIll.PEX) 


uutim. 




F2 


RE8R0R.PEX) 


aiST 




DECLARE 


(STATOS>ACTUAL.LEK> ADDRESS; 


DECLARE BUFER <128) fiEYTE; 


DECLARE BUFFERSPTR ADDRESS* CHM SASED BUFF£)?SPTR BYTE; 


DECLARE PATlfl4Af!E(15) BYTE; 


DECLARE mm) BYTE; 


DECLARE BUFlrfd^) BHE; 


DECLARE DIRSAFTH ADDRESS; 


DECLAJE 


:i^lS,&ISK) BYTE; 


DECLARE 


CfflOY,FDUHD) boolean; 


DECLARE FILESKAfE ADDRESS; 


DECLARE DIR§FIL(K) BYTE INITIAL (':FO:mS.&IR O; 


DECLARE SIKCLESDRIUE BDOLEAH PmiC; 


DECLARE \ 


mi 


:Ui 


BYTE DATA (', MLHi? '); 



60QD§CHAR: 

PRQCEDUE <ITEfl> BQQLEAH; 
DECLARE ITEfi BYTE; 

RETURH (HEH >:= 'A' AHD ITElt <= '2') 
OR (ITEfl >= '0' AHD ITEH (= 'H'y 
OR (ITEn = '?') 
OR (ITEfi == '«') 
OR (ITER = ', '); 



'"ri K-M"JI-K-S-}l-K--K-H-K-K-R-K-H-H-K-l«-K-K-K"K-K"S-H-g-H~H-K-H~H~M 



BEGIH«IH6 OF fWIH PROeRftH. 

S-«-K-«-K-K~K~K-K-K~K-S-K-«-K-a-K-K-K-K-H-K-S-«-H-»~K-H-l«-K-» R/ 

CftlL REft&(l,.B0FFER,LEH6TH<B«FFE8),.ftCTUftL. .STATUS); 
BUFFERCftCim) = CR; 

ISKD - mim. - 1; 

Cftll. FQJ?CES^PER(. BUFFER); 

CALL FILESERRffliCSTftTUS, .(':CI: O.TRUE); 

BUFFE8$PTR = DEBLAHKC. BUFFER); 

SIH6LE$DRH€ = FftLSE; 

00 yHILE (HOT e£HJD$CHftR<BUFFER<ISHfl))) AHB l$Hi\ > .1; 

ISHO^-ISM-l; 

END; 
IF BUFFER(I$I«B)=''P' AMD B0FFER<ISH0-1)=' " Ti€H 

00; 

ISHO=I$MB-i; 

DO yHILE ISHO > AHO <HST eBBBSCHl^R<£cyFFER(I$KD))); 

i$m = isjffi - 1; 
ehd; 



IF HBKKlFFERdSHO) =^ ^' OR im = 0) THEH 
&0; 

SIH6LE$DRIME = TRUE; 
EUFFER<ISJfil+l) = CR; 

ehd; 
ehd; 

IF SIHeiESmUE THEH CALL SETSDISKd); 

&0 foreuer; 

/a 
PROCESS yiL&CftRDS. 

a/ 

FOUHD = false; 

FILESKARE = BUFFERSPTR; 
STATUS = i^fiTH<BUFFER$PTR,.PH); 
CALL S$FILE«3?R0R<STATUS,BUFF£RSPIR) ; 
BUFFERSPTR = OLAHKCliDELIfilKBUFFERSPTR)); 
DIR$FIL<2) = <DISK:=PH«») + '0'; 
PH<0) = o; 

CALL QPEH<.&IR$AFTH,.DIR$FII,REA&SHQ&E,0, .STATUS); 
aUERY = FALSE; 

IF CHAR <> ',' AHD CHAR <> CR Tf€K 
OQ: 
IF CHAR = '8' AHD (DELIHIT(BUFFERSPTR)-BUFF£R$PTR-=1) TO 

dq; 

SUERy ^ TI8E; 

BUFFERSPTR = DEBLAHKCDELIfilKBUFFERSPTR)); 

ehd; 

ELSE 

OQ; 
CALL SSFILESERRDR <IHyALIDSSYKTAK > BUFFERSPTR); 

EHD; 
EHD; 

ISKO = o; 
00 i»iiLE iSHfl < im; 

BHD = DnES<DIR$AFTH,.PH.ISHQ,.BUFl<S); 
IF ISHB <- 200 THEH 

do; 



mrum = disk; 

CftlL UHPftTH(.BUFi^..PftTH«ftlfE>; 

!£« = DELIHIK.PfiTHHffltE) - .mHKft»E; 

l1Elffl«V(0) = 'Y'; 

IF m.m THEH 

00; 

CALL ym£<0,.(' 0,1.. STATUS); 

CALL «l?ITE<0...PftT}«lfl{1E,LEH,. STATUS); 

CALL l»?IT£ (0, . eUES,LENCTH(iWES), . STATUS) ; 

CALL REA&<l,.ftEHD(?Ya28,. ACTUAL,. STATUS); 

ekd; 

IF Uf^£R$CASE(«EfiDI?yCO» = 'y THEH 
DQ; 

CALL mimO.A' '),!,. STATUS); 

CALL I^ITE <0, . PATI«AfiE,LEH, . STATUS) ; 

CALL iS?nE(0>.(', 0,1,. STATUS); 

CALL &ELETE( . PATHKAHE, . STATUS) ; 

IF STATUS <> THEH CALL REPflRT$EI?J?D!?< STATUS); 

ELSE 

DO; 
CALL W?ITE<0,.(' &ELETE0',C8,LF),i<>,. STATUS); 

EHD; 

Em; 
Em; 

CALL CLQSE<DIR$ArTH,. STATUS); 

IF HQT mm THEN CALL FILESERf?{«(HO$SUCHSFILE,FILESHAnE,FilSE); 
IF CHAR = CR THEM 

yQ; 

IF SINeLE^RIME THEH CALL eETS&IS^($); 

CALL ekit; 

IF emu = ','theh 
00; 

BUFFER$PTR = DEBLAHiC(BUFFERSPTR+l); 
EK0; 
ELSE 

dd; 

CALL Sa^ILESeRaR(IHVALIDSSWTAX,BUFFER$PTK); 
£MD; 

ehd; 

EOF 



DD; 

DECLARE UERSIBKSIEUEL LITERALLY '^31% 
E&ITSLEyEL LITERfiLLY 'OOH'; 

DECLARE MERSIOH <«) BYTE DATA (UERSIDHSLEUEL.EMTSLEVa); 



/K 



K/ 



THIS MERSIDK OF DIR HAS BEEH lt®IFIE& TO mm OH THE im%. 
IT HAS ft SIHCLE DRIUE SUITCH (P), AH& «ILl UORK OH AKY DISK 
CBHFIGORfiTIffii ALLQUED BY TIC E!©S. 



§IHCLUDE (:F2 
5IHCL11DE <:F2 
/fiSHBLISTH/ 
SIHCLUDE (:F2 
§IHCLUDE <:F2 
5INCLUDE (:F2 
$IHCLUDE <:F2 
lilHCLODE (:F2 
^IHCLUDE 
SIKCLUDE 
SIHCLUDE 
$IHCLUDE 
SIHCLUBE 
SIMCLUDE 
$IHCLU0E <:F2 
§IKCLUDE (:F2 
$IHCLUOE <:F2 
$IHCLUDE (Jl 
SIHCLUDE <:F2 
$imimi (:F2 



(:F2 
(:F2 
<:F2 
(:F2 
<:F2 
C:F2 



$IHCLilOE 
$IHCLtffiE 
5IHCLIM 
^INCLUDE 
^IHCLUDE 
$LIST 



(:F2 
C:F2 
<:F2 
(:F2 
(:F2 



CPYRTS.HST) 
:CPYRT5.DTA) 

CiSinQK.LIT) 

CJ^.LIT) 

DPEH.LIT) 

ATTRIB.LIT) 

6ETDSK.PEX) 

EIS?DR.LIT> 

DEVICE. LIT) 

DPEK.PEK) 

READ.PEK) 

yRITE.PEX) 

CLOSE. PEX) 

EXIT.PEX) 

FtPPER.PEX) 

DLiniT.PEX) 

&Bl.Affl(.PEX) 

FERROR.PEX) 

D.PEX) 

UHPATH.PEX) 

DIRECT. DEX) 

SEa.PEX) 

yDELIH.PEX) 

«PATH.PEX) 



DECLARE (Anif.ACTUAL>STAT«S) ABSRESS; 

DECLAJS PKQO) BYTE; 

DECLARE <DISK,I) BYTE; 

DECLARE <IHMIS,FAST) BODLEAH IHITm (FALSE, FALSE); 

DECLARE BUFFERSPTR ADDRESS, CHAR BASED BUFFERSPTR BYTE; 

DECLARE BUFFERC128> BYTE; 

DECLARE (TOS.FQRS) BYTE; 

DECLARE SH^LESDRIME BQQLEAH PUBLIC; 

« -K-S -K-H-H-S-8 -S-K- S-K-K-te-K- fi-H~fi -H-S- «™«--K -«-K- K-fi-S-S-K K 

BECIHHIf^ W mm PRBGRAfi. 

K-K-K-M-«-K-K-K-Ji-K-M-K~K-H-K-K-R~M-M-K-«-K-«-H-K-H-K-)f~S-«"K M/ 



TQS.FBRS = O; 
SIHSLESDRM = FALSE; 

DISK = offh; 

CALL READ<1,.BUFFER,LEHCTH(BUFFER),, ACTUAL. .STATUS); 

C<liFFER(ACTIML) = CR; 

CALL FORCE$l^PER< . BUFFER) ; 



&UFFE8$PIR = &EBlftHK(. BUFFER); 
ftFTH = o; 
OB I = 1 Tfi ^i 
PH(I) = '«'; 

mm = Hi 

DQ UHiLE am o cr; 

IF SE8(BirFEI?$PTR,.<'F0R 0>y MM 

mi 

Pf?BaSS UILDCftro. 
v./ 

IF (FDRS := FQRS f 1) = 2 THEH 

CALL FILE$ERRD8<IHUftlID$SyKM>BUFFE8$FTR, TRUE) ; 
ByFFERSPTR = DEBLAH}C(BWFER$PTR+3) ; 
CALL FILE$ER}aiR(ttPflTH<BUFFER$PTR, . PH),BUFFER$PTR> TRUE) ; 
BUFFERSPTR = &EP.LftHK<yDElIlfITCBUFFER$PTR)); 
IF «QT INUIS THEH 

00; 

IHMIS = TRUE; 
9Q I = 1 TQ Hi 

IF PH<I> = '?' OR PH<I> = ^«' THEH IHUIS = FaSE; 

EH&; 

ehd; 

EM&; 

IF SE8<.('Tfl '),BUFFER$PTR.3) THEH 
DO; 
/« 
PROCESS DESTIHftTIQH FILE. 

IF CTDS :- TBS t 1) = 2 THEH 

CALL FILE«:RRflR<IHySLID$S¥HTftK.ffUFFERSPT«, TWE); 
EUFFER§PTR = 0EBLftHK(BUFFER$PTRt2); 
CALL OPEH< . AFTH,BUFFER$PTR.yRITE$HBDE.O, . STATUS); 
CftlL FILE$ERRQR<STftTUS.BUFF£RSPTR; TRUE); 
BUFFERSPTR = DEBLAHK<&ELIfin<BirFER$PTR)); 
EHD; 
ELSE 
0B; 

IF mm >= '0' ftHD Ci^ < '6' THEH 
WSK=CJ«IR-'0'; 
ELSE 

IF CJMR = 'I' THEH IHUIS = TRUE; 
ELSE 

IF CHftR = 'F' THEH FftST =■ TRUE; 
ELSE 
IF CHAR = 'P' THEH SIH6L£$DRiyE = TRUE; 
ELSE 
IF CHftR <> '$' -nCH 

CALL FILE$ERRBRCIWRE:CDS$StfnCH,l!UFFERSPTR,TRUE); 
BUFFERSPTR = DEBLftHK<BUFFER$PTR<-l); 
EHD; 
EHU; 

IF DISK <> OFFH THEH PH(0) = 0ISK; 
DISK = PH(0); 
PH(0) = r, 

IF SIHgLES&RiyE THEH CALL CETSDISKd); 
CALL D(DISK.ftFTH,FftST,IHyiS, .PH); 
IF SIHeLESDRIUE THEH CALL 6ET$0ISK<0); 

CALL exit; 

EH&; 



HEXQBJ: 

do; 



DECLARE UERSIOHSLEyEL LITEl?ALLy 
EDITSLEMEl LITERftLiy 11 



'02H' 



DECLARE Umim <«) BYTE MU <yEI?SIBH$LEyEL,E£HTSLEyEL); 



SIHCLUDE (:F2 
SIHCLUDE <:F2 
/fiSHQLIS7«/ 



$IHCLUDE 
$INCLI©E 
SIHCLIM 
$IHCLUDE 
5IHCLU&E 
$IHCLU&E 
$IHCLU&E 
SIHCLIHK 
SIHCLO&E 
$IHCLUDE 
SIHCLU0E 
$IHCLODE 
SIHCLUDE 
5IHCLUDE 
5IHCLUDE 
5IHCLUDE 
$IKCLU&E 
SIHCLODE 
flKCLU&E 
$LIST 



CPVRTSJTft) 
CPyRTS.HDT) 

COnitQK.LIT) 

CHAR. LIT) 

IPEH.LIT) 

SEe.LIT) 

RECTYP.LIT) 

flEftCK.PEX) 

READ.PEX) 

WRITE. PEX) 

EXIT.PEX) 

QPEH.PEX) 

CLOSE.PEX) 

DBLAHK.PEX) 

l>LIHIT.PEX> 

FIFPER.PEX) 

SE8.PEX) 

SCAHIH.PEX) 

ERROR. LIT) 

FERRDR.PEX) 

PATH.PEX) 



DECLARE BUFFERSSIZE ADDRESS; 

DECLARE IBUF(3328> BYTE; 

DECLARE IPTR ADDRESS; 

DECLARE BUFFER(i28> BYTE; 

DECLARE BUFFERSPTR ADDRESS, CHAR EASED BUFFE!?$PTR BYTE; 

DECLARE <QUTP«T$PTR.IKPUT^TR) «>DiiESS; 

DECLARE ACTtML MJDRESS; 

DECLARE STATUS J^^DRESS; 

DECLARE <START,EKDFILE) BQDLEAH; 

DECLARE (AFT$a«T,AFT$IK) ADDRESS; 

DECLARE STARTSMALUE ADDRESS; 

DECLARE RECBRD$PTR ADDRESS; 

DECLARE rtEfiHRYSPTR ADDRESS, HEIt BASED HERBRYSPTR BYTE; 






CONTENT RECORD DEFIHITIOH 






H/ 



DECLARE CflNTEHT STRUCTURE< 
TYPE BYTE, 
LEHCTH ADDIESS, 
SESSID BYTE, 
ADDR ADDRESS , 
DAT BYTE 

> AT i.mmm 

DECLARE RECDRDSADDRESS ADDRESS; 

DECLARE RLEK BYTE; 

DECLARE lyPE BYTE; 

DECLARE I byte; 

DECLARE CHECKSUM BYTE; 

/a a/ 

/a RDDULE HEADER RECORD DEFIHniBH »/ 



Ktim nmmn structurec 






TYPE(l) 


BYTE, 






LEHSTH 


ADi^RESS, 






HftBESLEH BYTE, 






mnzau byte. 






TRHSI0 


BYTE, 






TRKsyn 


BYTE, 






Qmm 


BYTE); 




/K 






K/ 


/K 


mdm.1 EH& RECORD 0EFIHITIBS a/ 


/« 






n/ 


mim ifflDEMD STROCTURE< 






REC$TYPE BYTE, 






LE»CTH 


^RESS, 






TYPE 


BYTE, 






SESSID 


BYTE, 






IfFSET 


^RESS, 






CHKSUH 


BYTE); 




/j« 






K/ 


/K 


HQ0OLE EHft OF FILE RECDIB) 


a/ 


/fi 


DEFIKITIIBJ 




K/ 


/« 






«/ 


DECLARE IttHJEOF STRUCTUREC 






TYPE 


BYTE, 






LEHfiTH 


ADDfESS, 






CHKSUtt 


BYTE); 




/K 






R/ 



DECLARE TE«P$PTR ADDRESS; 
&ECLAJE HDDLOC STRUCTURE ( 

fECTYPE BYTE, 

LEH6TH ADDRESS, 

SESID BYTE, 

OFFSET ADDRESS, 

^ELEH BYTE, 

HAI!EC35) BYTE); 
DECLAS WmU?) BYTE; 

OUTSRECOe: 
PROCEDURE (PTR); 
DECLARE PTR ADDRESS, CHAR ^SED PTR(l) BYTE; 
DECLARE PI ADDRESS, ADDR BASED Pi ADDRESS; 
DECLARE (I, STATUS) ADDRESS; 
DECLARE CHECKSUn BYTE; 

PI = PTR * l; 
CIIECKSUH = 0; 
OS I = $ TO ADDR + l; 
CHECKSyn = CHECKSUn ♦ CHAR(I); 

ehd; 

CHAR<ADDR+2) = C-CHECKSUR; 
CALL URITE<ftFT$DUT,PTR,ADDR*3,. STATUS); 
CALL FILES{S?DR<STATUS,QUTPyTSPTR, TRUE) ; 
END DUT$RECOR&; 

CMC: 
PROCEDURE BYTE; 

IF IPTR = LEH6TH<IBUF) THEH 
DO; 
CALL fEAD<AFTSIH, .IBUF,LEHeTH<IBUF),. ACTUAL,. STATUS); 

f-ftl i FTI FSFSSne^STftUK . THPUTSPTr . TBir i ; 



IF ACTUAL = a imn 
do; 

CALL FILE$ERRQI?<Efti?LY$EOF,IHPUTSPTR/r}aiE); 
CALL EXIT.: 

IPTR = r, 
im; 

IPT8 = IPTR + l; 
RETURK BUF<IPTR-i) m 7FH; 
EHD gHC; 

HEX: 
PROCEDURE byte; 
DECLARE CHAR BYTE; 

IF (CHftR:=6HC) >« '0' AHD CHAR <= 'V THEK RETORK CH^ ~ '0'; 
IF CHAR >= 'A' AHD CHAR <= T' THEH RETUIJH CHAR - 37H; 
RETURN OFFH; 
EHD fEX; 

BYTES: 
PROCEDURE BYTE; 
DECLARE CHAR BYTE; 

CHAR = SHL(0,4) + HEK; 
CHECKSi»J =^ CHECKSUH + CHAR; 
RETURN CHAR; 
EHD BYTES; 

START = FALSE; 
EHDFILE = FALSE; 

BECIKHIHe OF NAIH PROCRAH. 

/K IHITIALIZE nODULE HEADER RECORD AREA »/ 
lfQDHDR.TYPE«t> = HODHDRSTYPE; 
DO I = 1 TO SIZE(HDDHDR) - l; 

HODHDR.TYPECI) = 0; 
EHD; 

/K n/ 

IHPUT^TR = .(':CI: '); 

CALL JEAD<1,.BUFFER.LEHCTH(BUFF£R),. ACTUAL. .STATUS); 
CALL FILE$Ef^QR<STATUS, IHPUT^TR> TRUE) ; 
BUFFER(ACTUAl.) = CR; 
CALL FORCES^PERC. BUFFER); 
IHPUTSPTR,BUFFERSPTR = DEBLAHK<. BUFFER); 
CALL ITEHC . AFTSIH, IKPUTSPTR, RE^5!1QDE> 0> . STATUS) ; 
CALL FILE$E}ffi[BI< STATUS, IHPUTSPTR, TRUE) ; 
BUFFER$PTR = DEBLftHK<DELIHIT(BUFFEIKiPTR)); 
IF SE«I<.<'TQ O.BUFFERSPTRti) THEH 

do; 

OUTRJT$PTR,BUFFER$PTR = DEBLAHK<BUFFERSPTR+2); 

BUFFERffl'TR = DEBLAKK^DELXHIKBUFFERSPTR)); 
EHD; 
ELSE 
DO; 

TAJ I Fu f^mmt lumi TnssvHTAS, rutpht^ptp . imtr \ .- 



m mm am <> es; 

IF CHAR - 'S' THEH 

BUFFE8$PTR = DEBlftNK<gUFFER$PTK ♦ 1); 

IF SE8(EJWFFERS*»TR,.('STftRI'),5) THEH 

dd; 

START = true; 

BUFFER^R = &EeiftHK<BUFFERSPTR+5); 

IF CHAR <> '(' THEH 

db; 

CALL FILE^RROR<IHyALIDSS¥HTA)«,BUFFER$PTR> TRUE) ; 

ehd; 

E«IFFER$PTR ^ BUFFE8SPTR + li 

START$yftLUE = SCAH$INTEeER(.BOFFER$PTR); 

BIIFFERSPTR - DEBLAHK(BUFFERSPTR); 

If CHAR <> ')' THEH 

DO; 
CALL FILE$ERRDR<IHyALI0SS¥HTAK.BUFFER$PTK, TRUE); 

EH&; 

BUFFER$PTR = OEBl.ftHK<BWFERSPTR*l); 
EHD; /HEH& DF SEARCH LDlff »/ 

ELSE 
DQ; /k UHRECQeHIZE& QPTICHi s/ 

CALL FILE^RRDR(UNRECfl6$S«ITCK,BUFFEgSPTJ?,TRUE>; 
£HD; 
£m; /» EHD OF CQWIAHD LIKE ^'ARCH k/ 

CilLL QPEH(.AFT$flUT>OUTPyT$PTR,ISITE$fiBDE,^. .STATUS); 

CALL FILE$EeDR(STATUS> aUTPUT$PTR,TR«E); 

STATUS = PATH(U#UTSPTR,.»K)HDR.HAffiSLEH); 

nODHDR.HAHESLEH = 6i 

m UHILE rH©HDR.HAfiE<nfiDHDR.HArE$LEH-l) = O; 

ttDDHDR.HAfESLEH = HQDHDR.HAIIESLEK - 1; 
EHD; 

nO&HDR.LEHCTH ' HODHDR.HAHESLEH ♦ ki 
fiQ&HDR.TYPE<ffQDf®R.HARE$LEH+M> = 0; /« TRH I «/ 
f}D&HDR.TYPE<RS^ifl)R.HAI1ESLEH+5) = d; /» TRH ^ H h/ 

OUTPUT mmil HEADER RECQRD 

C:ALLQUT$RECOJ®<.ltQBH{)R); 

/s^ ASSEHBLE AHD OUTPUT Ci3HTEHT RECOROCS) h/ 

BUFFERSSIZE = flEffCK - MMi^i - 6k; 
C8HTEHT. TYPE = COHTEHTSTYre; 
CBHTEHT.LEHSTH^O; 
CQHTEHT.SEe$I& = ABSSSEG; 
eiSKTEHT.ADBR = Hi 
REHDRYSPTR = MmWiHi 
8EC0RDSPTR = O; 
IPTR = LEHeTH<Igir); 
RLEH = l; 

m UHILE RLEH <> 0; 
&0 UHILE (CHAR := fiHC) <> ':'; 
IF CHAR >= '0' AHD CHAR <= 'V THEH 
00; 

m UHILE enc <> ' '; 



Flirt; 



m UHUE <CHftR - GHC) = ' '; 
EH&; 

!1Ql>LI^.MftHF(0> = CHAR; 

m UHILE <«O0LQC.HA!1E(I> := ©C) <> ' '; 
M+i; 

EHO; 

mKm.mma) = o; 

r!BDlOC.HftlELEH = I; 
nBDLBC.LEHCTH = IHi 

m mm mm :- gho < 'O' s? mm > "^k; 
EH0; 

DO I = TO Hi TElfPd) = ' '; EKD; 

1=1; 

TEiiPCO) = mm; 

m mill mm := 6HC) o " ' ahd cha}? o '$' shd char o cr; 

TEIS»(I) = CHAR; 

TERPSni = . TEHP; /H THIS IS LUDICRIDUS. BUT HEEDE& &B TO SCftHSIHTEeER 8/ 

ttODLQC. QFFSET=SCAH$IKTEeER< .TO!P$PTR) ; 

?1Qi>LBC.S£ei0 = (fi 

HODLDC.RECTYPE == i2H; 

CALL OUTSrECffl?D<.riODLDC)i 

EH&; 

ekd; 

CHECKSWl = O; 

RLEK = errEs; 

IF RLEH <> THEH 

do; 

5fEC0RDSA&£>RESS = ByTESK25<J t BYTES; 
IF RECOIB)SPTR <> RECORDS ADDRESS QR 
CQHTEHT.lE'HeTH > BUFFER$SI2E THEK 
DO; 
IF CBHTOfT.LEHCTH <> ^ TME« 
BQ; 
C0HTEHT.LEH6TH = CBHTEHT.LEHeiH + hi 
CALL OUTSRECORP(.rEfiDRY); 

ekd; 

CQHTEHT.LEHeTH = 0; 
RECDRDSPTR = RECDRDSADDRESS; 
REHDRYSPTR = .«Er!DRY*<i; 
CQHTEHT.ADDR = RE CORDS ADDRESS; 

ehd; 

TYPE = bytes; 

DO I = i TO RLEH; 

mn = bytes; 

fiEHORYSPIR = HOfQRYSPTR + li 
RECORDSPTR = RECORDSPTR ♦ i; 
CQHTEKT.LEHCTH = CDHTEHT.LEHGTH + 1; 

im; 

TYPE = BYTES; /« COMPUTE CHECKSUlf a/ 
IF CHECKSOn <> THEK 

00; 

CALL FILE$ERRDR<CHECKSU«SERRQR. INPUTS? TR. TRUE) ; 
CALL EXIT; 

ehd; 
EKD; 
else 
do; 

If F-mwm \ FHCTH (yd imu \ 



DO; 
COHTEHl MEH6TH = CI^TEHT.LEKeTH + ^; 
CALL IRJISJECflRBCHEHQRY); 



IHITIftllZE, ftSSOieiE. AND 
OUTPUT mmil EHD RECORD 

nmimMcmn = hqdeh&stype; 

RODEHD.LEHgTH = 5; 
niS&EHD.TVPE == i; 

rfooEHD.SEesii} = o; 

flOOEHD.iff FSET = ByTES«25d+BYTES; 
IF START THEH 

UODE)S>.QFFSET - STftRTSVALUE; /R START ADDRESS «AS SPECIFIED «/ 
CALL aUT$RECORD(.nQDEJ®); 



/S 


K/ 


/K IHITIALIZE, ASSEHEJLE, AHD 


K/ 


/H OUTRIT im 


R/ 


/a nmmi ehd qf file recqrd 


H/ 


/J* 


K/ 


J1QDEQF.TYPE = EDF$TVPE; 




HODEDF.LEKeTH = 1; 




CALL DUTSRECQRD(.IIQDEQF); 




END; 




EHD; 





CALL CLOSECAFTSIH,. STATUS); 

CALL FILESERRIB?<STATUS.IHPUT$PTR,T1K1E); 

CALL CLOSEC^TSBUT,. STATUS); 

CALL FILE$ERRQR<STATUS, DUTPUTSPTR,TROE); 

CALL EXIT; 

EHD HEKOBJ; 



EBF 



IDISK: 



DECLARE yEmflH$LEyEL LITERftlty 'O', 
EDITSLEyEL lITERftlLV 'OOfI'; 

DECLARE yERSIBH(K) BYTE DATA (OSIDHSLEyEL.BITSLEVEL); 



Wm - THIS IS A CUSP FOR INITIALIZIHC ftlSIJETTES. IT OILl IflM 
m SIHCLE DR DOUBLE DEKSITV DRIMES, AHD IH SIHeLESDRIME ltQr*E. IT 
DOES TWI THIHeS. 1) HDRIfALLy, IT CREATES ft HQH-SYSTEfi DISKETTE, BY 
POTTIHe ISIS.DIR,mS.LAB,mS.T0,mS.!1AP QKTO THE DISKETTE. 
2) UITB THE S SUITCH, IT CJEATES ft SYSTEM DISKETTE, BY POTTIHe 
T^DDT, ISIS.BIH, AND ISIS.CLI OH THE DISKETTE. 
m A 32K SYSTEH UITH SIHCLE$DRiy£ HQDE <P SttlTCH) IT UILL 
RESyiRE H DISKETTE SUAPS TO CREATE A SYSTEH DISKETTE. All THE 
FILES THAT IDISK PUTS DH THE DISKETTE, HWE THE FQRHAT ATTRIBUTE 
SET. 

IK ORDER IB SIMULATE FORHAT USM IDISK, H IS HECESSARY TO USE COPY 
TQ COPY ALL THE FILES THAT YQU UAHT BK W DISKETTE. 



$iHCLUDE <:¥2: 
SIHCLODE <:F2: 
/HSHOLISTK/ 

m.tim. ( 

5IHCLW^E ( 

$IHCLUDE 

$IHCLtH)E 

$IHCLUDE 

flHCLUDE 

$IHCLUDE 

$IHCLU&E 

$IHCLtH)E 

^IHCLiM 

$IHCLl©E 

§IHCLUDE 

$INCLUDE 

SIKCLUDE 

SIHCLUDE 

$IHCLtM>E 

SIHCLUDE 

^INCLUDE 

SIHCLUDE < 

$IHCLUD£ 

$IHCLUDE 

5IKCLUDE 



$IHCLIS)E 
$IHCLUD£ 
SIHCLUDE 
§IHCL«DE 
SIHCLUDE 
$IHCLUDE 
$IHCLUDE 
$IHCLIH>E 
$IHCLUDE 
$IKCLUDE 
^INCLUDE 
SIHCLUDE 
$LIST 



CPYRT5.HQT) 
CPYRT5.DTA) 

CflHHQH.LIT) 

DISK. LIT) 

CHAR. LIT) 

SEyiCE.LIT) 

eEBe.LIT) 

ATTRIB.LIT) 

ERROR. LIT) 

ALLOC. DEX) 

DIRECT. DEK) 

HOHSYS.BLK) 

HEHCK.PEX) 

OPEH.PEX) 

BPEH.LH) 

READ.PEX) 

yRITE.r^X) 

CLOSE. PEX) 

EXIT.PEX) 

ATTRIB.PEX) 

DaETE. PEX) 

DISKIO.PEX) 

CETDSK.PEX) 

SERRQR.PEX) 

FO8?0R.PEX) 

DBLAHK.PEX) 

DLIHIT. PEX) 

fS»SCn.PEX) 

CLBUF.PEX) 

SETBLK.PEX) 

ftBSIQ.PEX) 

F«TTRK.PEX) 

FUPPER.PEX) 

i«).PEX) 

SPATH.PEX) 

U)«»ATH.PEX) 



DECLARE BUFFER<i28) BYTE; 



DECLftRE fiElfSSIZE ftDDHESS; 
DECLftRE fiCTUAL ADDRESS; 
DECLARE PH<12> BVTE; 

DECLARE mfFlUWW ADDRESS. CHAR BASED eUFFER^PTR BYTE; 
DECLARE (LJ.IC) ADDRESS; 
DECLARE (FILESKynBER.HADSPRIHT) BYTE; 
OECLARE NEKT ADDfESS; 

DECLARE <SYSTEn,PRIHT>FIRST>CDPY> Bffll.EAH; 
DECLARE <AFT$IK,AFTSOUT,DIR$AFT) ADDRESS; 
DECL^^E STATUS «)DRESS; 
DECLARE ATTRIB$L1ST(«) BYTE DATA (l>2,^); 
DECLARE DISJ{$TYPE BBQLEAH POBLIC; 
DECLARE IKPUT$STRIHGa<5) BYTE, 
OUTPUTSSTRINGCliS) BYTE; 
DECLARE FILE(<S) STRUCTURE 
(KA»E<13) BYTE) 



IHITIAL (':F^ 


ISIS.BIH ', 




•■:F0 


ISIS. TO ^ 




":F0 


ISIS.CLI ', 




':F0 


ISIS. If ftp ', 




':F0 


ISIS.DIR ', 




":F0 


ISIS. LAB '); 




DECLARE LABSBLK STRUCTURE< 




mmnH) 


BYTE,, 


VERSIDK(2> 


BYTE, 


LEFTSDyER(38) BYTE. 


CRLF(2> 


BYTE. 


FnT$TABLE<??> BYTE) AT (.BUFFER); 


DECLARE SIHSIESDRIUE BDQLEAH PmiC; 




KCim. IKFB BASED HEXT STRUCTtSfE 




(HUHBER BYTE, 




LEHGTH ADDRESS, 




BE6IH BYTE); 




IHITIALIZE: 
PRQCEDIM; 







/« THIS PROCEDURE IS CALLED TD MJ THE PHYSICAL Fi3RHAT OF THE 
DISKETTE, AHD THEH SET UP THE FILES THAT «UST EXIST FH THE 
REST m THE eOPYIHC TO TfflCE PLACE «/ 

CALL FDR?KiT$TRACK(PH(0),0,0,LAB$BLK .FHT$TABl.E«»-'0'); 
CALL FBRnAT$TRACK(PH<C>),l,l,LAB^LK .FrfT$T!mE(l)-'0'); 
CALL FORnATSTRACK(PH<O),2,74,LABSBLK.FnT$TmE(2)-'0'); 

CALL yRITE$DIRECTQRY(PH(0»; 
FILE<5).KfiltE<2) = PH<0) + '0'; 

CALL DPEH( . AFT$DUT, . FILEO) . KARE,UPDATE§HIM:, 0, . STATUS) ; 
CALL SSFILE$ERROR(STATOS, .FILEC5).HAHE); 

CALL ftOyE$ASCII<.LAB$BL}C, .PHtl,«|>; 

CALL yRITECAFTOUT, . LAB^LK, SIZECLABSBLX) , . STATUS); 
CALL S$Fn.E$ERROR<STATUS, .FILE<5).KAI1E); 

CALL CLOSECAFTQUT,. STATUS); 

CALL S$FILE$ERRErR<STATOS, .FILE<5).HA«E); 



EHD; 



BEeiNHiMe w mm ?mmm. 

«~K-K-H-8-«-K-K-H-K-«-K~R-K-H"«~K-«-K-M-K-«"K~l{-K-K~K-M-H-H"H U/ 

HEKT = .HEfgH?Y; 

FIRST = true; 

FILE$KIMEEg.HftBS?RIKT - 0; 

SIKeLES&RR€,R?i«T,DISKSTyPE.SmEn = FALSE; 

/j^ K/ 

/K »Eft& (im PftRSE CORI!AH& Tftll k/ 

/« M/ 

CALL READ<l>.I^FFER,LEHeTH(BUFFER>,.flCTUIIL. .STATUS); 

BUFFERCACTtM.) = CR; 

CALL FCH?CES{M='PER<. BUFFER); 

BUFFER$PTR = &E^AHK<. BUFFER); 

mm = offh; 

CALL SPATH<ByFFER$PTR. .PH. .STATUS); 

IF PNCil) = 1 TICK &ISK$TM = TRUE; 

CALL FILE$ERR{M?(STATUS, BUFFERSPTR^TRUE); 

IF PH<0) > FSDEM QR CHAR <> ':' TffiH CALL FEESERRBR<BA&$LABEL,BUFFER$PTRJRUE); 

BUFFER$PTR = &EBLAKK<DELiniT(BirFER5PTR)); 

DO UKILE Cl^ <> CR; 

IF CHAR = 'P' THEH SIH6LE$&RiyE = TRUE; 
ELSE 

IF Cmi = 'S' THEH SYSTEH ~ TRUE; 
ELSE 

IF tmn <> '$' TICK 

CALL FILE$ERRDR<UHRECQe$SyiTCH.BlJFFERSPTR,TRU£); 
&UFFERSPTR = DEBLAHK<BUFFER$PTR+1); 
EH&; 
IF PH<0) = FO&Ey THEH SIHGLESDRXUE = TRUE; 

/K READ AND 0ECIS»£ THE FDRJ^iT TABLE FRQtt THE SIRIRCE DISKETTE «/ 

/K INTO ttErfflRY TO BE USED AS TIC PROTOTYPE Fll THE HE« «/ 

/K DISKETTE THAT «E ARE eBIH6 TO CREATE h/ 

/K «/ 
CALL QPEHC.AFTSIH, .FILE<5).HAI1E,REA&SHQDE,0, .STATUS); 
CALL FILE$ERRiffi<STATUS, .FILE(5).HAR£JRyE); 

CALL READ(AFTSIH,.LABSBLK.SIZE<LAB$BLK)..ACTiiAl., .STATUS); 
CALL FILESERRi3R<STATUS> .FILE<5).KARE,TRU£); 

CALL CLOSE <AFTSIK, .STATUS); 

CALL FILESEI?RrBi<STATUS, .FILE<5).HAHE,TRUE); 



IF HDT (LABSBLK.UERSION(O) = '3' AHD LAB$BlJC.yERSIBK(l) >= '0') THEH 
dq; 

CALL URnE<0,.('SYSTEn DISKETTE HDT CQffPAFIBLE UITH IDISK',CR,LF),M3,. STATUS); 
CALL Exn; 

/a SET UP THE IHTERLEAME FACTORS DH THE DISK a/ 
LABSBLK . FRTSTftBL£< 0)= 'r ; 
IF OISKSTYre THEM 

0D; 

IM:$BLK . Fr!TSTABLE<i)== '9'+2^; 



EHD; 

ELSE 0D; 

lftB$BLK,.FHTSTfteLE(2)='^'; 

end; 

DB I = 3 TO 76; 

LftB$BLK.FfiT5TftBlE(I) = lftB$BLK.F«T$TABLE<2); 
EHS; 

IF SYSTEH MH CALL yf?ITE<d, . ( 'SVSUn DmErfE^eR,LF),l?, .STftlUS); 

IF SYSTER imn 

m «HILE riLE$HUHBER < 3; 
IMQMmM = FILESKUflBER; 

mmwti = ninmiE - 1; 

CALL WIU . ftFTSIH > . FILE<FILESHUnBER) . KARE, gEftD$HODE, 0, . STATUS) ; 
C^LL S$FILESEI?RDR(STftTUS, .FILE(FItE$HUHM;R).KAHE>; 

CALL ^ft&(AFTSIH, .IKFDJESIK.rfERSSIZE, .ftCTUftL,.STftTUS>; 

CALL SSFILESERRDRCSTflTUS, .FILE(FILESHy!Se) .HARE); 

CALL CLDSE<ftFTSIH,. STATUS); 

CALL S$FILE$E8RQR(STATUS, .FILE<FILE$HUHK:R).HARE); 

IHFD.LEH6TH = ACTUAL; 

HEKT = .IMFB.BE6IH * ACTIML; 

IF (IERSSI2E := flEfl$SIZE - ACTUAL) = THEH 
DO; 

FILE$H«tBER = FILESKUr^ER ~ 1; 
PRIMT = TRUE; 
EHD; 

IF FILESNURBER = 2 THEH PRIKT = TRUE; 

FILE$HURBER -= FILE$HURBER * 1; 

IF PRIMT THEH 
&B; 

IF SIM6LE$DRIUE THEH CALL SET$0ISK<2); 

IF FIRST THEH CALL IHITIALHE; 

HEX! = jerdry; 

00 yHIlE HAD$PRIHT < FILESHURBER; 

FIIE<HADSPRIHT).HA8E(2) = mm + '$'; 

CALL QPEH< . AFTSQUT, .FIL£<HAD$PRIHT) . HARE, UP&ATESt«l&E,<>, . STATUS); 

CALL SSFILESE!S?DR<STATUS> . FILE(HAD$PRIHT) .HATE); 

CALL URITE< AFTSBUT, .IHFQ JECIH, Mil. LEH€TH, .STATUS) ; 

CALL SSFILESERROR( STATUS, . FILE( i^J>$PRIHT) .MUh 

CALL CL9SE<AFT0UTi. STATUS); 

CALL S$FILE$ERRDR< STATUS, . FILE(IIA&$PRIHT) .HAffi); 

HEKT = .IHFB.BEeiH * It^Q.LEHGTH; 
HADSPRIHT = W«)SPRIHT + l; 



IF SIHeLESDRIME m FIlESHUfit'ER < 3 THEN CALL eET$8ISK<0); 

FIRST, PRIHT - FALSE i 

HEKT = .HEHORY; 

HEtt^SIZE = HEUCK - .HEflQRY; 

ehd; 

Em; 
ELSE &b; 

/e CRE/ITE HQK~SYSTEn DISKETTE »/ 

IF SIHQLESDRIME THEM CALL eETSt>ISK(2); 

Cftll IHITmiZEi 

FILE(0>.HftnEC2) = PH<0> + '0'; 

FIlECD.Hft«E<2> ==PH<« + '0'; 

CALL BPEH<.ftFTSDUT, .FILE(l).HftItE,UP&ftTE$nDDE,0>. STATUS); 

CALL SSFILE$ERRDJ?<STftTUS..FILE(l).MM>; 

CALL yRITE(AFT$DUT, .HfiHSYS>LEHCTH<HI3HSYS),. STATUS >; 

CALL S$FILE$ERRD!?(STATUS, .FILECl) . HWIE) ; 

CALL CLBSE(AFTSQ«T* .STATUS); 

CALL S$FILE$ERRDR(STATUS. Jaid) . mm> i 

CfUl DaETE( . FILE<0 ) . Mil, . STATUS) ; 

CALL URITE<0,.<'?«IH-SYSTER DISKETTE'>CR>LF), 21*. STATUS); 

00 I = TO 5; 

FILECl). K6nE(2) = PH(0) * '0'; 
CALL ATTRIB< . FILECl) . HARE , 3. TRUE, . STATUS ) ,; 
EHD; 

CALL ATTRIBC .FILEC2) .HAttE,O.TRUE, .STATUS); 
CALL ATTRIBC .FILEC2) .HftrfE,iJRUE, .STATUS); 
IF SIHeLE»RIUE THEH CALL QETSDISKCO); 

CALL EXIT; 

im msk; 



OBJHEX: 
DO; 



DECLARE yERSIQKSLEUa LITERftLLY 
Wnnm. LITERAtlY '1*^ 



'm' 



DECLARE UERSI{»t<K) BYTE DATA <yERS]3]H$LEyEL,EDITSLEyEL); 



nncim. 


<:F2:CPYRT5.DTA) 


nmimi 


<:F2:CPYRT5.HST) 


mmnzi^/ 


SIHCLUDE 


(:F2 


ERKOR.LIT) 


$iH€im. 


(:F2 


CI^OH.LIT) 


$IHCLIM 


<:F2 


CHAR AIT) 


5IHCLUDE 


(:F2 


mM.im 


$imimi 


(12 


SE€.LIT) 


SINCLUDE 


(:F2 


RECTYP.LIT) 


$IHCLUDE 


<:F2 


lEaCKPEX) 


SIHCLUDE 


(:F2 


RE^.PEX) 


nmimi 


<:F2 


yRITE.PEK) 


SIHCLUDE 


(:F2 


EXIT.PEX) 


§IJtCLUDE 


<:F2 


BPEH.PEX) 


SIHCLU&E 


(:F2 


CLOSE. PEX) 


SIHCLIM 


<:F2 


SEfl.FEX) 


SIHCLUDE 


(:F2 


DLIHIT.PEX) 


SIHCLIM 


(:F2 


DBLAHK.PEX) 


^INCLUDE 


<:F2 


mmm.?u> 


nmum. 


<:F2 


F«PPER.PEX) 


SIHCLUDE 


(:F2 


FEf§?DR.PEX) 


0IHCLUDE 


<:F2 


PATH. PEX) 


SLIST 




SECLARE BUFFERSCDUNT AD0RESS; 


DECLARE SEeSI& BYTE; 


DECLARE RECLEN ADDRESS; 


DECLARE TVre BYTE; 


DECLARE CHECKSUn BYTE; 


DECLARE 


(LJ) ADDRESS; 


DECLARE HEXLEH «)DRESS; 


DECLARE ADDR ADDRESS; 


DECLARE im? BYTE; 


DECLAfE BUFFERSSI2E ADDRESS; 


DECLARE IPTR «&DRESS; 


DECLARE BUFFE8Ci28) BYTE; 


DECLARE BUFFERSPTR ADDRESS, CHAR BASED BUFFERSPTR BYTE; 


DECLARE 


(DUTPUT$PTR,IHPUT$PTR> ADDfESS; 


DECLARE ACTUAL AM)RESS; 


DECL^ 


STATUS AW>RESS; 


DECLARE 


(AFT$OUT,AFTSIH) ADDRESS; 


/« 




HEXADECIBM. CQHTEHT RECORD. 
DECLARE HEM-CfiRD STRyCTURE( 




HEADER BYTE, 




LEHCTH ADDRESS, 




ADDR(2> iH>DRESS, 




TYPE ADDRESS, 




miiu) mmn$. 




CHKSUH ADDRESS, 






TRAILER<2) BYTE); 



/K 



HEXADECIJM. EHD RECORD. 



DEClftRE EHDf?EC{l!> STRUCTUREC 

mmiM mi, 

lyPE ADDRESS, 

cmmn ^dress. 

TRAILER<2> BYTE>; 

CET$P.VTE: 
PRDCEBURE BYTE; 

IF BUFFERSCiKJHT - Tf€H 
DO; 

CALL REftD(ftFT$IH, .REfBJRY,BUFFER$SI2E> iOIFFERSCBUHT, . STATUS); 

CALL FILE$ERR!3R(STATUS,I}PlT^TR,TRyE); 

IF BIFFERSCQUHT = THEH 

DO; 
CALL FILESERRBR (EARIYSEBF , IKPUTSPTR , TiftlE ) ; 
CALL EXIT; 

EHD; 

IPTR = o; 
EM&; 

BUFFER^OUHT = BUFF£R$CQUNT - 1; 
IPTR = IPTi + i; 
RETURN rEIWRYdPTR-i); 
EHD 6ETSBYTEJ 

eETSAD&RESS: 
PROCEDURE ABDJESS; 

RETURN eET$B¥TE + 6ET$BYTEr25<5; 

im eETSAiH^KSS; 

BEgJHHIMS QF KAIH PRQGRAn, 

K-K-K-K-K-K-K-K-H-K-R-K-K-H-K-S-K-K-H-K-K-K-K-H-H-JI-H-K-M-K-K K/ 

/a 
IHITIALK Kmm STRUCTURES, 

K/ 

HEXRECQRD.HEAC^R = ':'; 
HEXRECORD.TYPE = '00'; 
EKDRECORD.ICADER = ':'; 
EHDREC[H?D.T}^IlER<0) = CR; 
EHDRECQR&.TRAIL£R<i) = LF; 

READ AMD PROCESS CBflHAHD TAIL. 
n/ 

IKPUT^TR = .(':CI: O; 

CALL READd, . ^F£R,LEHeTH<BUFFEII>, .ACTUAL, .STATUS); 
CALL FILESEI3}QR(STATUS, IHPOT$PTR. TRUE) ; 
BUFFER(ACTUM.) = CR; 
CALL FDRCE$^reR<. BUFFER); 
IHPUTSPTR,BirFERSPTR = DEBLAH!((. BUFFER); 
CALL m:H( .m$lH, IHPUTSPTR, READSHM, 0, . STATUS) ; 
CALL FILE$BSI{1<STATUS, IHPUTSPTR. TRUE) ; 
BUFFEISPTR = DEELAHK<DEai!IT<EUFFER$PTR)); 

TF Kf&( f'Til O.RiJFFFBSPTP.l) TWM 



mi 

OUTPUT $PTR,EUFFERSPTR = DEBLftHK<BUFFi;i?SPT8+2); 
BUFFERSPTR = DE81AKK<DEII«IT(B1IFFERSPT8»; 

imi 

ELSE 

so; 

CftlL FILESC8RB1?( IHyftLIDSSYHTftX, QUTPUTSPTR.TRliE ); 
EHyJ 

IF CHAR <> CJ? THEH CALL FILESER8Q8<IHyftLIDSSymAX>BUFFE8$PIR,TRUE); 
CALL OPEH(.ftFTSDUT,llUTPUTSPTR.I»?ITESHDi>E>0, .STATUS); 
CALL FILE$EI?RDR<STATUS> DUTPUT$PTR,TJ^E); 
/R 

COnPUTE SIZE OF UDRKSPACE. 
fi/ 

BUFFERSSIZE = fiE«CK - .HEfffiRY; 
BUFFERSCDUKT =^ 0; 

READ OBJECT ISCQRDS, URITE HEXABECIHAL REGIMES. 

K/ 

00 FOREVER; 
TYPE = 6ET$BYTE; 
IF TYPE >= RaOC$TYPE IKU 

CALL FILESERRQR<BA0$RECSTYP,IHPUTSPTR.TRUE); 
IF TYPE = flQDEHD$TYPE TO 
Mi 

RECLEM = SETSADDRESS; 

TEtJP = eETSEYTE; 

TEHP = ^t$byte; 

ADDR = CETSAODRESS; 

CHECKSIM ^ LBy<ADDR) f HIQHitHm) + 1; 

CALL mmmi<iA6, 'o^ .ehdrecbrb.lehcth.2>; 

CALL NIMIQOKADDR, 16 . '0 '* . EI©R£CQR& . AD&R , ^} ; 

CALL HUHQUKl. U» '« ', .EKDRECQR&.TYPE>2) I 

CALL H«fflUT(-CHECKSUH,i<{, '«', .EHDRECDRD .CHKSUH.2) ; 

CALL URITE<ftFTSOUT, .EHDRECBRDi SIZE <EHBRECDRD>,. STATUS); 

CALL CLSSE<AFT$IH,. STATUS); 

CALL CLDSE<AFTSDUT,. STATUS); 

CALL EKIT; 
END; 
IF TYPE <> CBKTEHT$TYPE THEH 

do; 

RECLEH ^ SETSABDRESS; 
DQ I = 1 TD RECLEK; 
TEHP = eETSBYTE; 
EHD; 

ELSE 

DO; 

RECLEH = eET$AODRESS; 
SEGSID = eET^YTE; 
ADOR = eETSADDRESS; 
RECLEH = KCLES - ki 
DD yHILE JEaEH <> 0; 

HEKLEH = RECLEH; 

IF HEXLEH > LEHCTH<HEXRECDR&.DAT) TICK 
HEXLEH == LEK6TH (ICKRECDR0.DAT); 

RECLEM ' RECLEH - MEXLEH; 

DO I = TQ LEHeTH(i€XRECIM?D.DAT)4-l; 
HEMCQR&.OATd) = OAO0H; 

EHD; 

CHECKSUn = HEXLEH + LDyCADDR) ♦ HKHCftlH)!?); 

CALL HUrfflUK HEXLEH,!^, '0', .HEXRECDRD.LEH€TH*2>; 

iWi I mtnmiTt mm . t x . 'a ' . ^rxermsiv mm . t.^ : 



DS J = TB HEXLEH - 1; 

mm = ftDOR + 1; 

TEfiP = SEimtlli 

CHECKSUR = CHECKSll + TEHP; 

CftlL HU!tBUT<TEHP,y, '$'a.HEXg£CDRD.DIiTy),2); 

CALL HOtlflUT(-CHECKSllH.l<i,'0'..l€XRECOi!)JftT<HEXLEH).2>; 
CALL l^ITE<ftrT$DUT,.HEXRECDRD.HEXLEH*HEKI.EH+13, .STftT«S>; 
EH0; 

TESP = St:T$BYTEJ 
EH&; 

ehd; 

EHD OfiJHEX; 
EDF 



MX:im yERSIQ«$LEyEL LITERftLLV •'02H^ 
EDIT§LRe. LITERAliy 'IIH'; 

KCim. MERnOM («) BYTE MTft (^8SI0K$LEyEL,-EMr$L£yEL); 



mmim£ (:F2 
$IHCim. <:F2 
/i«$HDLIST«/ 



$IHCLU&E 
SIHCLUDE 
SIHCLIHJE 
SIHCLU&E 
^IHCLODE 
51HCLUDE 

$IHCLUDE 
$IHCLUDE 
SIHCLU0E 
flHCLUDE 
§IHCLUDE 
$IHCLU&E 
§IHCL!®E 
$11 ST 



:CPyRT5.HDT) 
:CPfRT5.DTft) 

CCSmOH-LIT) 

crs^R.iiT) 

OSfflR.in) 

REftD.PEX) 

URITE.PEX) 

REXAHE.PEX) 

EKIT.PEX) 

DELETE. PEK) 

DLiniT.PEX) 

DBLftKK.PEX) 

FIOTER.PEX) 

UCASE.PEK) 

SE8.PEX> 

FERROR.PEX) 



0ECLARE (ftCTOftL,STrlTUS) ADDRESS; 

DECLARE BUFFER <i28) BYTE; 

DECLARE BUFFERSPTR ADDRESSi 

OECLARE ALR£A&Y<K) BYTE DATA (', ALREADY EXISTS, DELETE? 



>; 



&EeiHHis6 DF mm mmmn 

CALL READ(1..BUFFER,LEHGTH(BUFFER),. ACTUAL, .STATOS); 
BUFFER< ACTUAL) = CR; 
CALL FQRCE$WPER< . BUFFER); 
CALL FILE$ERRflR<STATUS, .<':CI: '),TRUI); 
BUFFER$PTR = DEM.AHK<DELMT(DEBLAHK<. BUFFER))); 
/« 
eUFFERSPTR SfflJULD HQU PfllHT TB 'TQ ^ 

IF SE8<.('TB '),B«FFER$PTR,3) THEK 

do; 

&UFFERSPTR = DEBLAKK<BUFFER$PTR + 3); 
CALL RZHmi . BUFFER, . BUFFER, . STATUS) ; 

IF STATUS () rRJLTIDEFIKED THEH CALL FILESEIMIR (STATUS,. BUFFEIJ, TRUE); 
CALL REHAr^<. DIFFER, BUFFERSPTR. .STATUS); 
IF STATUS - fiilTIDEFIHED THEH 
DO; 
CALL yRITE«>,.(' 0,1,. STATUS); 

yRITE OUT )Cy FILE HAHE. 

CALL URITE(d,BUFFERSPTR, DELiniT(BUFFER§PTR)-BUFFER$PTR, 

.STATUS); 
CALL URITECO, . ALREADY, LEKGTHC ALREADY), . STATUS); 



CftlL mmiU .HEHGRY.128. .fiCTUftL, .STATUS); 
IF UPPERSCftSE<ODRY(0)) = 'V THEK 

m; 

CALL DELETE<BUFFER9»TR,. STATUS); 

CALL FILEORQR< STATUS , EUFrER$PTR, TRUE) ; 

call rehane< . buffer, bufferspt8, .status); 

call fileserror(status>burfer§ptr,true); 
ehd; 
else call ekit; 

ELSE IF<STATUS=URITESPJaiTECT) THEH 
CALL FILE$ERRQR(STATUS, .BUFFER. TRUE); 
ELSE 
CALL FILESERROR( STATUS , BUFFER$PT R> TRUE) ; 
EHD; 
ELSE CALL FILE$ERRQR<IHyALIDSSYHTftX.&UFFER$P1R/rRUE); 

CALL exit; 

EHD; 



EOF 



tmnn: 



DECLARE yEmOHSLEyEL LITERALLY '02H', 
E&IT$LEyEL LITERALLY '12H'; 

DECLARE UERSIBH (») BYTE DATA (MERSIDHSLEyEL^EDITSLEya); 

SIHCLIM <:F2:CPYRT§.H0T) 

THIS UERSIQK QF SUBttlT HAS BEEK fSIDiriE!) TO UDRK DH ODUBLE DEHSIIY. 
IT RECi^HES DISK DRIUES M AMD 5. 

$IHCLUDE <:F2:CPYRT5.DTA) 

THIS CUSP IW>Y BE CALLED BY EITHER QF 2 Cmmm STRIKgS: 

i. -SUBfilT RESTORE <HAC}a]-FILEHAff£> «PATHHAr}E>.<BLOCi(fffi>,<BYTEHO» 

yHEK IHUOKED IH THIS FASHION, SUBRIT WILL RERACE THE 
CllRREHT COHSQLE INPUT DEVICE (:CI:) BY W. FILE SPECIFIED 
m <PATHHAIE>; THEN THE FILE CALLED :FX:<MACRD-FILEI«»RE>.CF 
IS DELETED. 

FURIJCRHilE.. IF <PATHHAHE> SPECIFIES ft DISK FILE. TO 
A SEEK IS ffiRFDRHED OH IT, AFTER IT BECllfES THE KEU :CI: 
FILE, USIHC THE <BLDCKHD> AMD <BYTEKO> PARARETERS, WilCH 
ARE ASSURED TD BE IHTEGERS. 

2 . -SUBRH <RACRO-FILEHARE >«ARW>, < ARCl) , . . , , <ARC«!» 



yHEH immi^ ih this fashioh, subrit will create a file 

:FK:<RACJa[I-FILEHAHE>.CF BY SUBSTITUTIHe THE ACTUAL 
PARAHETERS «ARe>'S) CIUEH FOR THE FIIRAL PARARETERS IH THE 
FILE SI^CIFIED BY <RACRD-FILEHAR£>. <THE K^H FQRRAL PARARETER 
IS XK , K A DIGIT.) THE CURREHT CONSOLE INPUT DEVICE IS THEN 
TERPQRARILY REDEFINED AS :FX:<RACRQ-FILENARE>.CF; WCN END OF 
FILE m :FX:<RACRfl-FILENARE).CF IS REACHED, IT IS DaETED, 
AND :CI: IS RESURED AS BEFORE. (NOTE THAT SUBRITS CAN BE NESTED). 



/M$NQLISTK/ 



^INCLUDE 
$INCLtM)E 
^INCLUDE 
$INCLUDE 
SINCLUDE 
$INaUDE 
SINCLUDE 
$INCLUDE 
$INCLUDE 
^INCLUDE 



^INCLUDE ( 



SINCLUDE 
$INCLUDE 
SINCLUDE 
SINCLUDE 
SINCLUDE 
SINCLUDE 
SINCLUDE < 
^IHCimi ( 
SINCLUDE ( 
SINCLUDE ( 



Ci»JRQN.LIT) 

Cft^R.LIT) 

ERROR. LIT) 

DEVICE. LIT) 

OPEN. LIT) 

SEK.LIT) 

ffi^N.PEK) 

READ.PEX) 

WRITE. PEX) 

CLOSE. PEX) 

SEEK.PEX) 

DELETE. PEX) 

EXIT. PEX) 

CffiiSQL.PEX) 

UHQCQH.PEX) 

RESCAN.PEX) 

SEfi.PEX) 

PATH. PEX) 

UNPATH.PEX) 

DBLANK.PEX) 

DLIRIT.PEX) 



umim. i 

$IHCLUDE ( 
$IHCLtM: < 
$IHCLUDE ( 



UCftSE.PEK) 
HUnOUT.PEX) 
FERREHJ.PEX) 
SO^HIH.PEX) 



STRUCTURE TQ STORE ftCTUfil PftRAItETERS: AMD CORRESPDH&IKe LEK€TMS. 

DECLARE PARAflSdO) STRUCTURE ( 
DAT<31) BYTE, 
LEJ^TH 0VTE); 

DECLARE BUFFER<102k) BYTE; 
DECLARE EUFFERSPTR ADDRESS; 
DECLARE BUFFER$CQUHT ADDRESS; 
DECLARE mm BASED BUFFERSPTR BYTE; 
DECLARE AUXPTR ADDRESS; 

DECLARE mmy byte; 

DECLARE I ADDIESS; 

DECLAIM L BYTE; 

DECLARE (RESTBRE,SCAmH6,DEBU6,PARAR$SCAH) OTLEAH; 

DECLARE <CSD, CS> ST ATUS> ACTUAL, BIOCKHB, BYTEKD) ADDRESS ; 

DECLARE <CSDMARE,CSKArJ£,NICItHArE,CD (15) BYTE. 

BEeiMHIH6 QF HAIH PRDGRAn 

M~K-K-H-K--H~K-K-H-K-K-K-H~H-R-H~M-H~8-K-R-K--R-K-K~H-R-K-fi-R-K S/ 

IHITIALIZE PARAfiETER ARRAYS. 
DO I = TQ SIZE<PARAfiS); 

p arabs (0).dat<i) = 0; 
ehd; 

CM.L JSSCAH<1,. STATUS); 

CALL READ(1,.BUFFER,LEHGTH(BUFFER),. ACTUAL, .STATUS); 

BUFFER(ACTIM.) - CR; 

BUFFERSPTR = .BUFFER; /» FQRCESUPPER THAT STOPS AT PARAHS »/ 

DO yHILE C\m <> CR AND CHAR <> '<'; 

CHAR = OTER§CASE<CHAR); 

BUFFERSPTR = BUFFERSPTR + l; 

EHD; 
BUFFERSPTR = i^BLAHK<.BUFFD?); 

SAME KAtlE SUBHIT UAS IH^ED BY. 
a/ 

DEBUG = FALSE; 
IF S£a<BUFFERSPTR,.<'&EBUe '),6) TffiH 

do; 
DEBue = TiajE; 

BUFFERSPTR==DEBLAHK<BUFFER$PTR+S>; 
EHD; 

STATUS = PATHCBUFFERSPTR, .PH); 
CALL UHPATHCPHi.HICKKAHE); 
BUFFERSPTR - DEBLAHK<DELim (BUFFERSPTR)); 

TEST FOR RESTORE C0RI1AHD. 



RESTORE = FALSE; 

IF SE8<BUFFER^TR,.( 'RE STORE '),8> THEH 

DO; 

8EST0RE = TI8IE; 

BUFFERSPTR = DE8LftHK(BUFFER$PTRt8>; 

Em; 

PARSE FILEMftRES. 

CALL FILE$£RRDR<PATH<BUFFER$PTR, .PH>,BUFFER$PTR,TRyE>; 
IF PK<?) = a THEN 

do; 
PH(?) = 'C; 

PH<8) = 'S'; 

PH(f> = '&'; 

CM.LUHP6TH(.PH>.CSDKftfiE); 

PH<?) = 'C; 

PK<8) = 'S'; 

PH<«1) = o; 

CALL UKPftTH(.PK,.CSHftflE); 

BUFFERSPTR = 5E61AHK(DELIfin<BUFFER$PTR)); 

PROCESS ACTOAL PARARETERS. 

I = O; /« PARARETER CQUHTER «/ 
IF CHAR = 'C TO 
DQ; 
BUFFERSPTR = BUFFERSPTR * li 
SCAKHIMe == TRI«; 
0D yHILE SC^IHg; 
AUXPTR>BUFFER$PTR = DEBLAHK(BUFFER$PTR) ; 
IF I = LE}^TH<PARARS) THEN 

CALL FILEORDR<TDn$RAHVS'ARARS* AUXPTRJROE); 
L = O; /« PARAHETER LEHCTH COUNTER «/ 
IF CHAR =•- "" THEH 

dq; 
PA8ARSSCAN = TRUE; 
gUFFER$PTR = BUFFERSfPTR + 1; 

DO uhue pararsscah; 
IF I =^ lensthcparars.datj im^ 

CALL FILE$ERRQR<AR6ST0QSLQH€>AUXPTR,IRUE); 
Pfl8A«S<I).&AT<L) = tmRi 
IF CHAR = '"' THEH 

00; 

PARAfl$SCAN = FALSE; 
BUFFERSPTR = BUF FERSPTR + 1; 
IF CHAR =: "" Ti€K 
DO; 
PARARSSCAN - TRUE; 
BUFFER$PTR - BUFFERSPH + 1; 
END; 
END; 

ELSE BUFFERSPTR « BUFFERSPTR + 1; 
L = L + l; 
END; 

L = L - i; 
end; 

ELSE 

DO; 

PARARSSCAN = TRUE; 

m mill pararsscah; 



mi niE^immmmmmm , aukpti?. true) ; 
IF mm > ' ' flHD mm <= icz 
fmcmu <> ',' 

mi) CHftf? <> ')' MM 

do; 

PAMftlfSCD.DAKL) = ZlMi 

BUFFER5PTR = BUFFERSPTB + li 

L = L <■ l; 
EN&; 
ELSE PftRflJfSSCflH =^ FALSE; 

ehd; 
ES; 

BUFFERSPTR = &EBLflHK(BOFFER$PTR>J 
IF CHAR -- '. ' THEH 

Dfl; 

BUFFERSPTR = ByFFER$PTR * 1; 

emd; 

ELSE 

IF CHAR =^ O' Tf€H 

dq; 
scAHHiHe = false; 

BUFFER$PTR = DEeLAHI{<BUFFER$PTR+l); 

ekd; 

ELSE CALL FILESERRDR(IKyALIDSSMAX,AU>!PTR.TRUE); 
PARA«S<I).LEHeTH = L; 

I = I t i; 
im; 

END; 

IF CHAR <> CR THEH CALL FILESER8DR<IHyALID$SyHTAK.BUFFER^TR,TRUE); 

IF RESTORE THEK 

DQ; 

/« 
CHAKeE CflHSQLE TQ PREVIOUS FILE. 

n/ 

CALL CQHS[a.(.PARAI1S(0).BAT,.<':C0: '),. STATUS); 

STATUS = f^TH(.PARAfiS(0).BAT,.PM>; 

IF mm <= F5DEU THEH /h DI^ FILE «/ /h K) h/ 

DQ; 

BLOCKHO = .PARAf!S<l).&AT; 

E;LBC»(M0 = SCAH$IHTE8ER<.fi!L0CKKQ); 

mKm= .PARA!1S(2).&AT; 

mEHO ^ SCAH$IHTE6ER<.eYTEH0); 

CALL SEEK(1>SEEK$ABS, .BLQCKHD, .BVTEHO. . STATUS); 
END; 

DELETE FILE «HICH JUST UAS THE CDKSQLE. 

CALL DELETE< . CSHAHE, . STATUS) ; 
CALL FILE$ERRSR< STATUS, . CSI^flE, TRUE) ; 
EHD; 
ELSE 
DO; 
/s 

URITE <RACRn-FILEHAHE>.CS. 
M/ 

6ET$IHPUT: 
PROCE&l^E BYTE; 
DECLARE TE«P BYTE; 

IF BirFER§CBUHT == THEK 
DO; 
BUFFES^PTR = .buffer; 



IF BUFFERSCOUHT = THEH 8ETU8H 0; 

TEHP = am; 

gUFFER$PTR = BUFFERSPTJI + 1; 
BUFFERSCBUKT = BUFFE8$CQUKT - 1; 
f?ETUR« TEHP; 
EHD eET$I«PUT; 

CALL 0PE8< . CS&> . CSDHA!1E/REftDSnQ0E>O, JTftTUS); 
CALL FILESEI?RQ8< STATUS, .CSDHAJ1E*TRUE>; 
CALL QPE»(.CS,.CSHAr!E, SRITE«1BDE>0, .STATUS); 
CALL FILESERRIIC STATUS, .CSKAJ1E, TRUE) ; 
BUFFERSCIRIKT = 0; 
00 yHILE (L:==6ETSIHPUT) (> 0; 
ff I = COHTRBl$P THEK 
DQ; 
L = eET$IlffHiT; 

CALL «RITE(CS,.L,i,. STATUS); 
EKO; 
ELSE 

IF L <> '7/ THEH CALL tfRITECCS, . L,!, . STATUS) ; 
ELSE 
DO; 
L = KTSIJfi'UT - '0'; 
IF L > LASKPARAHS) THEH 

CALL FILE$ERRQR<BAD$PARA«,r4IFFER$PTR-l.TRyE); 
CALL «?ITE<CS,.PARAnsa).DAT,PARAHS<L).LEHeTH,. STATUS); 
EH&; 
EHD; 
/a 

ADD tmrnm to restore prior cohsole. 

CALL CLDSE(CS&, . STATUS); 
IF DEBUe THEH 

do; 
call urite<cs> . < 'debuc n,6.. status) ; 

EM&; 

CALL URITECCS, .HICKHAHE,&ELIHIT< .HICKHAHE)-.HIC!(I^HE+1, . STATUS); 

CALL ttRITE<CS,.< 'RESTORE '),8,. STATUS); 

CALL URITECeS, .CSHAnE,D£LiniT(.CS»Ar}E)-.CSHAftE, .STATUS); 

CALL «RITE(CSi. <'<'),!,. STATUS); 

CI - CORIEHT COHSQLE IHPUT DEMICE. 
a/ 

CALL «HQaiH<l>.CI); 

CALL «RITE(CS> .CI^DaiWK .CI)-. CI, .STATUS); 
STATUS = PATH(.CI,.PH); 
IF PH(0) <= FSDEM THEH /» df^ «/ 
dm 
PRIHTSELQCK^RSBYTE: 
PRDCE&URE <X); 
DECLARE <X,PTR) ADDRESS; 
DECLARE BUF<d) BYTE; 

BUF<5) = ' '; 

CALL iSITECCS, . ( ', ') ,1, .STATUS); 

CALL !fl]!1QUT<X,10>' ',.1^,5); 

PTR= 0EBLAHK<.BUF); 

CALL «RITE<CS,PTR,DEa}tIT<PTR)-PTR, .STATUS); 

EHD priht$block$dr$eyte; 

CALL SEEK(1,SEEK$RETURH, .BLDCKHO, . BYTEHQ, . STATUS) ; 



Cftll PRIHTSB10CK'$DR$BYTE <BYTEHQ) ; 

ehd; 

CftlL ymE(CS, . ( ',CR,LF) ,3, .STATUS); 

CALL CLnSE<CS,. STATUS); 

CALL COHSBK.CSHARL.CiCQ: '),. STATUS); 
EM&; 

CALL EXIT; 
EH&; 



EOF 



